c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine kmvbox_ir(s,t1,t2,u1,u2,mt,mh,kmv1,kmv2)
c form factors for the t(u)-channel UV finite, but IR div. contribution
c box diagrams B7(1),B7(2),B8(1),B8(2),B10(1),B10(2)
      implicit none
      integer i,j
      real*8 ncf,cg,cf,mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 d1r(0:3),d2r(0:6),d3r(0:3,0:3),ch1(0:2),s1,s2
      complex*16 zero,kmv1(3,68),kmv2(3,68)
      complex*16 c0,d0,D0_ir,c11,c12,c20,c21,c22,c23
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4)
      complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323,
     $     d331,d332,d3123
      real*8 lambda,lambda2

      COMMON/IR/LAMBDA,LAMBDA2

      lambda=mt
      lambda2=lambda**2
      zero=dcmplx(0d0,0d0)
      do i=1,68
         do j=1,3
            kmv1(j,i)=zero
            kmv2(j,i)=zero
         enddo
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
      cf=(ncf**2-1d0)/ncf/2d0
c B7(1)
      d1(0)=D0_ir(mt,0d0,mt**2-2d0*p1p3,mh**2,mt**2,s1,
     $     mt**2-2d0*p2p4,0d0,mt,mt)
c      write(6,*)'B7(1)=',d1(0)
      call ddfunc_ir(mt,0d0,mt**2-2d0*p2p4,mt**2-2d0*p1p3,
     $     -p2p4,p1p4-p3p4,p1p4-p3p4-p1p2+p2p3,
     $      0d0,0d0,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv1(1,5)=(-4*c0*p1p3+4*d20*p1p3-4*d12*mt**2*p1p3-
     $     4*d223*mt**2*p1p3+4*d23*mt**2*p1p3+4*d13*p1p2*p1p3-
     $     4*d223*p1p2*p1p3+4*d23*p1p2*p1p3-8*d23*p1p3**2-
     $     4*d13*p1p3*p1p4+4*d213*p1p3*p1p4+
     $     4*d223*p1p3*p1p4-4*d23*p1p3*p1p4-
     $     4*d13*p1p3*p2p3+4*d223*p1p3*p2p3-
     $     4*d23*p1p3*p2p3-4*p1p3*p2p4*d0+
     $     4*d11*p1p3*p2p4+4*d12*p1p3*p2p4-
     $     4*d13*p1p3*p2p4+4*d213*p1p3*p2p4+
     $     8*d223*p1p3*p2p4+4*d13*p1p3*p3p4-
     $     4*d213*p1p3*p3p4-4*d223*p1p3*p3p4+
     $     4*d23*p1p3*p3p4)
      kmv1(1,6)=(5*c0-2*d20+2*d13*mt**2-2*d212*mt**2+2*d213*mt**2-
     $     2*d22*mt**2+2*d223*mt**2-2*d12*p1p2-2*d212*p1p2+
     $     2*d213*p1p2-2*d22*p1p2+2*d223*p1p2-10*d13*p1p3-
     $     4*d213*p1p3-4*d223*p1p3+4*p1p4*d0+6*d11*p1p4+
     $     6*d12*p1p4+4*d13*p1p4+2*d21*p1p4+4*d212*p1p4-
     $     2*d213*p1p4+2*d22*p1p4-2*d223*p1p4+2*d12*p2p3+
     $     2*d212*p2p3-2*d213*p2p3+2*d22*p2p3-2*d223*p2p3-
     $     2*d11*p2p4-6*d12*p2p4+2*d21*p2p4+6*d212*p2p4+
     $     4*d22*p2p4-4*p3p4*d0-6*d11*p3p4-6*d12*p3p4-
     $     4*d13*p3p4-2*d21*p3p4-4*d212*p3p4+2*d213*p3p4-
     $     2*d22*p3p4+2*d223*p3p4)
      kmv1(1,7)=(-6*d12*mt*p1p3+6*d13*mt*p1p3)
      kmv1(1,8)=(-12*d20*mt-2*d22*mt**3+4*d223*mt**3-2*d23*mt**3-
     $     2*d22*mt*p1p2+4*d223*mt*p1p2-2*d23*mt*p1p2-
     $     4*d223*mt*p1p3+4*d23*mt*p1p3+4*d12*mt*p1p4-
     $     4*d13*mt*p1p4+2*d212*mt*p1p4-2*d213*mt*p1p4+
     $     2*d22*mt*p1p4-4*d223*mt*p1p4+2*d23*mt*p1p4+
     $     2*d22*mt*p2p3-4*d223*mt*p2p3+2*d23*mt*p2p3-
     $     2*d12*mt*p2p4+2*d13*mt*p2p4+2*d212*mt*p2p4-
     $     2*d213*mt*p2p4+4*d22*mt*p2p4-4*d223*mt*p2p4-
     $     4*d12*mt*p3p4+4*d13*mt*p3p4-2*d212*mt*p3p4+
     $     2*d213*mt*p3p4-2*d22*mt*p3p4+4*d223*mt*p3p4-
     $     2*d23*mt*p3p4)
      kmv1(1,13)=(8*d12*mt-4*d13*mt+8*d212*mt+8*d22*mt)
      kmv1(1,14)=(-4*d12*mt-8*d213*mt-8*d223*mt)
      kmv1(1,17)=(-10*c0+4*d20-4*d13*mt**2+4*d212*mt**2-4*d213*mt**2+
     $     4*d22*mt**2-4*d223*mt**2+4*d12*p1p2+4*d212*p1p2-
     $     4*d213*p1p2+4*d22*p1p2-4*d223*p1p2+20*d13*p1p3+
     $     8*d213*p1p3+8*d223*p1p3-8*p1p4*d0-12*d11*p1p4-
     $     12*d12*p1p4-8*d13*p1p4-4*d21*p1p4-8*d212*p1p4+
     $     4*d213*p1p4-4*d22*p1p4+4*d223*p1p4-4*d12*p2p3-
     $     4*d212*p2p3+4*d213*p2p3-4*d22*p2p3+4*d223*p2p3+
     $     4*d11*p2p4+12*d12*p2p4-4*d21*p2p4-12*d212*p2p4-
     $     8*d22*p2p4+8*p3p4*d0+12*d11*p3p4+12*d12*p3p4+
     $     8*d13*p3p4+4*d21*p3p4+8*d212*p3p4-4*d213*p3p4+
     $     4*d22*p3p4-4*d223*p3p4)
      kmv1(1,19)=8*p1p3*d0 + 4*d11*p1p3 + 8*d12*p1p3 + 8*d13*p1p3
      kmv1(1,25)=(-2*c0+6*c11+8*d20-4*d13*mt**2-4*d223*mt**2-
     $     4*d12*p1p2-4*d22*p1p2-8*d223*p1p2+4*d13*p1p3-
     $     8*d223*p1p3-8*p1p4*d0-4*d11*p1p4-4*d12*p1p4-
     $     8*d13*p1p4+4*d212*p1p4+4*d22*p1p4+8*d223*p1p4+
     $     4*d12*p2p3+4*d22*p2p3+8*d223*p2p3-8*d212*p2p4-
     $     16*d22*p2p4+8*p3p4*d0+4*d11*p3p4+4*d12*p3p4+
     $     8*d13*p3p4-4*d212*p3p4-4*d22*p3p4-8*d223*p3p4)
      kmv1(1,26)=(2*c0-6*c12-8*d20+4*d12*mt**2+4*d223*mt**2+
     $     4*d13*p1p2+8*d223*p1p2+4*d23*p1p2+16*d23*p1p3-
     $     4*d13*p1p4-8*d213*p1p4-8*d223*p1p4-4*d23*p1p4-
     $     4*d13*p2p3-8*d223*p2p3-4*d23*p2p3+4*p2p4*d0-
     $     4*d11*p2p4+4*d13*p2p4+4*d213*p2p4+8*d223*p2p4+
     $     4*d13*p3p4+8*d213*p3p4+8*d223*p3p4+4*d23*p3p4)
      kmv1(1,29)=(24*d20*mt+4*d22*mt**3-8*d223*mt**3+4*d23*mt**3+
     $     4*d22*mt*p1p2-8*d223*mt*p1p2+4*d23*mt*p1p2+
     $     8*d223*mt*p1p3-8*d23*mt*p1p3-8*d12*mt*p1p4+
     $     8*d13*mt*p1p4-4*d212*mt*p1p4+4*d213*mt*p1p4-
     $     4*d22*mt*p1p4+8*d223*mt*p1p4-4*d23*mt*p1p4-
     $     4*d22*mt*p2p3+8*d223*mt*p2p3-4*d23*mt*p2p3+
     $     4*d12*mt*p2p4-4*d13*mt*p2p4-4*d212*mt*p2p4+
     $     4*d213*mt*p2p4-8*d22*mt*p2p4+8*d223*mt*p2p4+
     $     8*d12*mt*p3p4-8*d13*mt*p3p4+4*d212*mt*p3p4-
     $     4*d213*mt*p3p4+4*d22*mt*p3p4-8*d223*mt*p3p4+
     $     4*d23*mt*p3p4)
      kmv1(1,31)=(4*d12*mt*p1p3+4*d13*mt*p1p3+16*d223*mt*p1p3)
      kmv1(1,32)=(-8*d13*mt*p1p3-16*d23*mt*p1p3)
      kmv1(1,47)=(-16*d12*mt+8*d13*mt-16*d212*mt-16*d22*mt)
      kmv1(1,50)=(8*d12*mt+16*d213*mt+16*d223*mt)
      kmv1(1,65)=(-16*d20+8*d13*mt**2-16*d22*mt**2-16*d223*mt**2+
     $     8*d12*p1p2+16*d22*p1p2+16*d223*p1p2-8*d13*p1p3+
     $     16*d223*p1p3+16*p1p4*d0+8*d11*p1p4-8*d12*p1p4-
     $     16*d212*p1p4-16*d22*p1p4-16*d12*p2p3-
     $     16*d223*p2p3+16*d212*p2p4+16*d22*p2p4-16*p3p4*d0-
     $     8*d11*p3p4-24*d12*p3p4-16*d13*p3p4+4*c0-
     $     12*c11+16*d22*mt**2+24*d223*mt**2-
     $     8*d22*p1p2+16*d12*p1p4+
     $     16*d13*p1p4+8*d212*p1p4+
     $     8*d22*p1p4-16*d223*p1p4+
     $     8*d12*p2p3-8*d22*p2p3+16*d22*p2p4+16*d12*p3p4+
     $     8*d212*p3p4+8*d22*p3p4+16*d223*p3p4)
      kmv1(1,68)=(16*d20-8*d12*mt**2+16*d223*mt**2+16*d23*mt**2-
     $     8*d13*p1p2-16*d223*p1p2-16*d23*p1p2-16*d23*p1p3+
     $     16*d13*p1p4+16*d213*p1p4+16*d223*p1p4+8*d13*p2p3+
     $     16*d23*p2p3-8*p2p4*d0+8*d11*p2p4+8*d12*p2p4-
     $     16*d213*p2p4-16*d223*p2p4+8*d13*p3p4-
     $     4*c0+12*c12-24*d223*mt**2-16*d23*mt**2+
     $     8*d23*p1p2-16*d23*p1p3-8*d13*p1p4+8*d23*p1p4+
     $     16*d223*p2p3-8*d23*p2p3-8*d12*p2p4-8*d13*p2p4+
     $     8*d213*p2p4-16*d13*p3p4-16*d213*p3p4-
     $     16*d223*p3p4-8*d23*p3p4)
c B7(2)      
      d1(0)=D0_ir(mt,0d0,mt**2-2d0*p2p4,mh**2,mt**2,s2,
     $     mt**2-2d0*p1p3,0d0,mt,mt)
c      write(6,*)'B7(2)=',d1(0)
      call ddfunc_ir(mt,0d0,mt**2-2d0*p2p4,mt**2-2d0*p1p3,
     $     -p3p4+p2p3,-p1p3,p1p4-p3p4-p1p2+p2p3,
     $      0d0,0d0,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv2(1,5)=(-4*c0*p2p4+4*d20*p2p4-4*d13*mt**2*p2p4+
     $     4*d22*mt**2*p2p4-4*d223*mt**2*p2p4+4*d12*p1p2*p2p4+
     $     4*d22*p1p2*p2p4-4*d223*p1p2*p2p4-
     $     4*p1p3*p2p4*d0+4*d11*p1p3*p2p4-
     $     4*d12*p1p3*p2p4+4*d13*p1p3*p2p4+
     $     4*d212*p1p3*p2p4+8*d223*p1p3*p2p4-
     $     4*d12*p1p4*p2p4-4*d22*p1p4*p2p4+
     $     4*d223*p1p4*p2p4-4*d12*p2p3*p2p4+
     $     4*d212*p2p3*p2p4-4*d22*p2p3*p2p4+
     $     4*d223*p2p3*p2p4-8*d22*p2p4**2+4*d12*p2p4*p3p4-
     $     4*d212*p2p4*p3p4+4*d22*p2p4*p3p4-
     $     4*d223*p2p4*p3p4)
      kmv2(1,6)=(5*c0-2*d20+2*d12*mt**2+2*d212*mt**2-2*d213*mt**2+
     $     2*d223*mt**2-2*d23*mt**2-2*d13*p1p2+2*d212*p1p2-
     $     2*d213*p1p2+2*d223*p1p2-2*d23*p1p2-2*d11*p1p3-
     $     6*d13*p1p3+2*d21*p1p3+6*d213*p1p3+4*d23*p1p3+
     $     2*d13*p1p4-2*d212*p1p4+2*d213*p1p4-2*d223*p1p4+
     $     2*d23*p1p4+4*p2p3*d0+6*d11*p2p3+4*d12*p2p3+
     $     6*d13*p2p3+2*d21*p2p3-2*d212*p2p3+4*d213*p2p3-
     $     2*d223*p2p3+2*d23*p2p3-10*d12*p2p4-4*d212*p2p4-
     $     4*d223*p2p4-4*p3p4*d0-6*d11*p3p4-4*d12*p3p4-
     $     6*d13*p3p4-2*d21*p3p4+2*d212*p3p4-4*d213*p3p4+
     $     2*d223*p3p4-2*d23*p3p4)
      kmv2(1,7)=(12*d20*mt+2*d22*mt**3-4*d223*mt**3+2*d23*mt**3+
     $     2*d22*mt*p1p2-4*d223*mt*p1p2+2*d23*mt*p1p2-
     $     2*d12*mt*p1p3+2*d13*mt*p1p3+2*d212*mt*p1p3-
     $     2*d213*mt*p1p3+4*d223*mt*p1p3-4*d23*mt*p1p3-
     $     2*d22*mt*p1p4+4*d223*mt*p1p4-2*d23*mt*p1p4+
     $     4*d12*mt*p2p3-4*d13*mt*p2p3+2*d212*mt*p2p3-
     $     2*d213*mt*p2p3-2*d22*mt*p2p3+4*d223*mt*p2p3-
     $     2*d23*mt*p2p3-4*d22*mt*p2p4+4*d223*mt*p2p4-
     $     4*d12*mt*p3p4+4*d13*mt*p3p4-2*d212*mt*p3p4+
     $     2*d213*mt*p3p4+2*d22*mt*p3p4-4*d223*mt*p3p4+
     $     2*d23*mt*p3p4)
      kmv2(1,8)=(-6*d12*mt*p2p4+6*d13*mt*p2p4)
      kmv2(1,10)=(4*d13*mt+8*d212*mt+8*d223*mt)
      kmv2(1,11)=(4*d12*mt-8*d13*mt-8*d213*mt-8*d23*mt)
      kmv2(1,16)=(2*c0-6*c11-8*d20+4*d13*mt**2+4*d223*mt**2+
     $     4*d12*p1p2+4*d22*p1p2+8*d223*p1p2+4*p1p3*d0-
     $     4*d11*p1p3+4*d12*p1p3+4*d212*p1p3+8*d223*p1p3-
     $     4*d12*p1p4-4*d22*p1p4-8*d223*p1p4-4*d12*p2p3-
     $     8*d212*p2p3-4*d22*p2p3-8*d223*p2p3+16*d22*p2p4+
     $     4*d12*p3p4+8*d212*p3p4+4*d22*p3p4+8*d223*p3p4)
      kmv2(1,17)=(-2*c0+6*c12+8*d20-4*d12*mt**2-4*d223*mt**2-
     $     4*d13*p1p2-8*d223*p1p2-4*d23*p1p2-8*d213*p1p3-
     $     16*d23*p1p3+4*d13*p1p4+8*d223*p1p4+4*d23*p1p4-
     $     8*p2p3*d0-4*d11*p2p3-8*d12*p2p3-4*d13*p2p3+
     $     4*d213*p2p3+8*d223*p2p3+4*d23*p2p3+4*d12*p2p4-
     $     8*d223*p2p4+8*p3p4*d0+4*d11*p3p4+8*d12*p3p4+
     $     4*d13*p3p4-4*d213*p3p4-8*d223*p3p4-4*d23*p3p4)
      kmv2(1,23)=(8*p2p4*d0+4*d11*p2p4+8*d12*p2p4+8*d13*p2p4)
      kmv2(1,25)=(-10*c0+4*d20-4*d12*mt**2-4*d212*mt**2+4*d213*mt**2-
     $     4*d223*mt**2+4*d23*mt**2+4*d13*p1p2-4*d212*p1p2+
     $     4*d213*p1p2-4*d223*p1p2+4*d23*p1p2+4*d11*p1p3+
     $     12*d13*p1p3-4*d21*p1p3-12*d213*p1p3-8*d23*p1p3-
     $     4*d13*p1p4+4*d212*p1p4-4*d213*p1p4+4*d223*p1p4-
     $     4*d23*p1p4-8*p2p3*d0-12*d11*p2p3-8*d12*p2p3-
     $     12*d13*p2p3-4*d21*p2p3+4*d212*p2p3-8*d213*p2p3+
     $     4*d223*p2p3-4*d23*p2p3+20*d12*p2p4+8*d212*p2p4+
     $     8*d223*p2p4+8*p3p4*d0+12*d11*p3p4+8*d12*p3p4+
     $     12*d13*p3p4+4*d21*p3p4-4*d212*p3p4+8*d213*p3p4-
     $     4*d223*p3p4+4*d23*p3p4)
      kmv2(1,28)=(8*d12*mt*p2p4+16*d22*mt*p2p4)
      kmv2(1,29)=(-4*d12*mt*p2p4-4*d13*mt*p2p4-16*d223*mt*p2p4)
      kmv2(1,31)=(-24*d20*mt-4*d22*mt**3+8*d223*mt**3-4*d23*mt**3-
     $     4*d22*mt*p1p2+8*d223*mt*p1p2-4*d23*mt*p1p2+
     $     4*d12*mt*p1p3-4*d13*mt*p1p3-4*d212*mt*p1p3+
     $     4*d213*mt*p1p3-8*d223*mt*p1p3+8*d23*mt*p1p3+
     $     4*d22*mt*p1p4-8*d223*mt*p1p4+4*d23*mt*p1p4-
     $     8*d12*mt*p2p3+8*d13*mt*p2p3-4*d212*mt*p2p3+
     $     4*d213*mt*p2p3+4*d22*mt*p2p3-8*d223*mt*p2p3+
     $     4*d23*mt*p2p3+8*d22*mt*p2p4-8*d223*mt*p2p4+
     $     8*d12*mt*p3p4-8*d13*mt*p3p4+4*d212*mt*p3p4-
     $     4*d213*mt*p3p4-4*d22*mt*p3p4+8*d223*mt*p3p4-
     $     4*d23*mt*p3p4)
      kmv2(1,55)=(-8*d13*mt-16*d212*mt-16*d223*mt)
      kmv2(1,56)=(-8*d12*mt+16*d13*mt+16*d213*mt+16*d23*mt)
      kmv2(1,64)=(16*d20-8*d13*mt**2+16*d22*mt**2+16*d223*mt**2-
     $     8*d12*p1p2-16*d22*p1p2-16*d223*p1p2-8*p1p3*d0+
     $     8*d11*p1p3+8*d13*p1p3-16*d212*p1p3-16*d223*p1p3+
     $     8*d12*p1p4+16*d22*p1p4+16*d12*p2p3+16*d212*p2p3+
     $     16*d223*p2p3-16*d22*p2p4+8*d12*p3p4-4*c0+
     $     12*c11-16*d22*mt**2-24*d223*mt**2+8*d22*p1p2-
     $     8*d12*p1p3-8*d13*p1p3+8*d212*p1p3-8*d22*p1p4+
     $     16*d223*p1p4-8*d12*p2p3+8*d22*p2p3-16*d22*p2p4-16*d12*p3p4-
     $     16*d212*p3p4-8*d22*p3p4-16*d223*p3p4)
      kmv2(1,65)=(-16*d20+8*d12*mt**2-16*d223*mt**2-16*d23*mt**2+
     $     8*d13*p1p2+16*d223*p1p2+16*d23*p1p2+16*d213*p1p3+
     $     16*d23*p1p3-16*d13*p1p4-16*d223*p1p4+16*p2p3*d0+
     $     8*d11*p2p3-8*d13*p2p3-16*d213*p2p3-16*d23*p2p3-
     $     8*d12*p2p4+16*d223*p2p4-16*p3p4*d0-8*d11*p3p4-
     $     16*d12*p3p4-24*d13*p3p4+4*c0-12*c12+24*d223*mt**2+
     $     16*d23*mt**2-8*d23*p1p2+16*d23*p1p3+8*d13*p1p4-8*d23*p1p4+
     $     16*d12*p2p3+16*d13*p2p3+8*d213*p2p3-16*d223*p2p3+
     $     8*d23*p2p3+16*d13*p3p4+8*d213*p3p4+16*d223*p3p4+8*d23*p3p4)
c B8(1)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,mt**2,0d0,
     $     mt**2-2d0*p1p3,s,0d0,mt,0d0)
c      write(6,*)'B8(1)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p1p3,
     $     -p3p4,p1p4-p3p4,-p1p3,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(2,1)=(2*c12*mt**2+20*d20*mt**2-16*d303*mt**2+4*d23*mt**4+
     $     4*c0*p1p3-2*c11*p1p3-2*c12*p1p3-12*d20*p1p3+
     $     16*d302*p1p3+16*d303*p1p3+4*d13*mt**2*p1p3-
     $     8*d223*mt**2*p1p3-12*d23*mt**2*p1p3-4*d12*p1p3**2-
     $     4*d13*p1p3**2+4*d22*p1p3**2+12*d223*p1p3**2+
     $     8*d23*p1p3**2-4*c0*p1p4-2*c11*p1p4-2*c12*p1p4+
     $     8*d20*p1p4-16*d301*p1p4-4*d13*mt**2*p1p4+
     $     8*d213*mt**2*p1p4-4*d0*p1p3*p1p4+
     $     4*d11*p1p3*p1p4+4*d12*p1p3*p1p4-
     $     8*d212*p1p3*p1p4-12*d213*p1p3*p1p4-
     $     4*d11*p1p4**2+4*d21*p1p4**2+4*c0*p3p4+2*c11*p3p4+
     $     2*c12*p3p4-8*d20*p3p4+16*d301*p3p4+
     $     4*d13*mt**2*p3p4-8*d213*mt**2*p3p4+4*d0*p1p3*p3p4-
     $     4*d11*p1p3*p3p4-4*d12*p1p3*p3p4+
     $     8*d212*p1p3*p3p4+12*d213*p1p3*p3p4+
     $     8*d11*p1p4*p3p4-8*d21*p1p4*p3p4-4*d11*p3p4**2+
     $     4*d21*p3p4**2)
      kmv1(2,2)=(-4*c0+10*d20-8*d301-8*d302-8*d303+2*d13*mt**2+
     $     2*d213*mt**2+2*d223*mt**2+2*d23*mt**2-2*d0*p1p3+
     $     2*d11*p1p3+4*d12*p1p3+2*d13*p1p3-2*d212*p1p3-
     $     4*d213*p1p3-2*d22*p1p3-6*d223*p1p3-4*d23*p1p3-
     $     2*d11*p1p4+2*d21*p1p4+2*d212*p1p4+2*d213*p1p4+
     $     2*d11*p3p4-2*d21*p3p4-2*d212*p3p4-2*d213*p3p4)
      kmv1(2,3)=(c12*mt+10*d20*mt-8*d303*mt+2*d23*mt**3+6*d13*mt*p1p3-
     $     2*d223*mt*p1p3-4*d23*mt*p1p3+2*d213*mt*p1p4-
     $     2*d213*mt*p3p4)
      kmv1(2,4)=(c12*mt+10*d20*mt-8*d303*mt+2*d23*mt**3+2*d13*mt*p1p3-
     $     2*d223*mt*p1p3-4*d23*mt*p1p3-4*d13*mt*p1p4+
     $     2*d213*mt*p1p4+4*d13*mt*p3p4-2*d213*mt*p3p4)
      kmv1(2,5)=(-2*c12*mt**2+2*c0*p1p3+2*c11*p1p3+2*c12*p1p3+
     $     22*d20*p1p3+4*d23*mt**2*p1p3-4*d13*p1p3**2-
     $     4*d223*p1p3**2-4*d23*p1p3**2+2*c0*p1p4+2*c11*p1p4+
     $     2*c12*p1p4-18*d20*p1p4-4*d23*mt**2*p1p4+
     $     4*d13*p1p3*p1p4+4*d213*p1p3*p1p4+
     $     4*d223*p1p3*p1p4+4*d23*p1p3*p1p4-
     $     4*d213*p1p4**2-2*c0*p3p4-2*c11*p3p4-2*c12*p3p4+
     $     18*d20*p3p4+8*d13*mt**2*p3p4+4*d213*mt**2*p3p4+
     $     4*d223*mt**2*p3p4+4*d23*mt**2*p3p4-8*d0*p1p3*p3p4-
     $     4*d11*p1p3*p3p4-12*d12*p1p3*p3p4-
     $     12*d13*p1p3*p3p4-4*d212*p1p3*p3p4-
     $     8*d213*p1p3*p3p4-4*d22*p1p3*p3p4-
     $     8*d223*p1p3*p3p4-4*d23*p1p3*p3p4+
     $     8*d11*p1p4*p3p4+4*d21*p1p4*p3p4+
     $     4*d212*p1p4*p3p4+8*d213*p1p4*p3p4-
     $     8*d11*p3p4**2-4*d21*p3p4**2-4*d212*p3p4**2-
     $     4*d213*p3p4**2)
      kmv1(2,6)=(-20*d20+2*d13*p1p3+2*d213*p1p3+2*d223*p1p3+
     $     2*d23*p1p3-2*d13*p1p4-2*d213*p1p4-2*d223*p1p4-
     $     2*d23*p1p4+4*d0*p3p4+6*d11*p3p4+6*d12*p3p4+
     $     6*d13*p3p4+2*d21*p3p4+4*d212*p3p4+4*d213*p3p4+
     $     2*d22*p3p4+4*d223*p3p4+2*d23*p3p4)
      kmv1(2,7)=(c12*mt-2*d23*mt*p1p3+2*d23*mt*p1p4-
     $     4*d13*mt*p3p4-2*d213*mt*p3p4-2*d223*mt*p3p4-
     $     2*d23*mt*p3p4)
      kmv1(2,8)=(c12*mt-2*d23*mt*p1p3+2*d23*mt*p1p4-
     $     4*d13*mt*p3p4-2*d213*mt*p3p4-2*d223*mt*p3p4-
     $     2*d23*mt*p3p4)
      kmv1(2,11)=8*d23*mt
      kmv1(2,14)=-8*d23*mt
      kmv1(2,17)=(-2*c11-3*c12+14*d20-8*d303+10*d23*mt**2-
     $     14*d13*p1p3-10*d223*p1p3-8*d23*p1p3-4*d13*p1p4+
     $     2*d213*p1p4-4*d23*p1p4-8*d0*p3p4-12*d11*p3p4-
     $     4*d12*p3p4-4*d13*p3p4-4*d21*p3p4-4*d212*p3p4-
     $     6*d213*p3p4+4*d223*p3p4+4*d23*p3p4)
      kmv1(2,20)=(-2*c0-2*c11+c12+26*d20+8*d303+6*d23*mt**2+
     $     2*d13*p1p3+10*d213*p1p3-6*d223*p1p3-4*d23*p1p3+
     $     8*d213*p1p4-8*d11*p3p4-4*d21*p3p4-4*d212*p3p4-
     $     16*d213*p3p4)
      kmv1(2,23)=(-2*c11-3*c12-26*d20-8*d303-6*d23*mt**2+2*d13*p1p3+
     $     6*d223*p1p3+8*d23*p1p3+4*d13*p1p4-6*d213*p1p4+
     $     8*d223*p1p4+4*d23*p1p4+8*d12*p3p4-4*d13*p3p4+
     $     4*d212*p3p4+6*d213*p3p4+4*d22*p3p4-4*d23*p3p4)
      kmv1(2,26)=(-2*c0-2*c11+c12-14*d20+8*d303-10*d23*mt**2+
     $     8*d13*p1p3+2*d23*p1p3-2*d13*p1p4-10*d213*p1p4-
     $     2*d223*p1p4-2*d23*p1p4+8*d0*p3p4+4*d11*p3p4+
     $     12*d12*p3p4+10*d13*p3p4+4*d212*p3p4+6*d213*p3p4+
     $     4*d22*p3p4+6*d223*p3p4+2*d23*p3p4)
      kmv1(2,29)=(-2*c12*mt+8*d23*mt*p1p4+8*d13*mt*p3p4+
     $     4*d213*mt*p3p4+4*d223*mt*p3p4-8*d23*mt*p3p4)
      kmv1(2,32)=(2*c12*mt+10*d23*mt*p1p3+2*d23*mt*p1p4-
     $     8*d13*mt*p3p4-4*d213*mt*p3p4-4*d223*mt*p3p4-
     $     2*d23*mt*p3p4)
      kmv1(2,41)=(-16*d13-16*d213-16*d223-24*d23-8*d33-8*d331-8*d332)
      kmv1(2,50)=(-8*d23*mt-8*d33*mt)
      kmv1(2,59)=(-8*d23*mt-8*d33*mt)
      kmv1(2,68)=(4*c0-8*c12-24*d20-32*d303-8*d23*mt**2-16*d33*mt**2+
     $     4*d13*p1p3+24*d223*p1p3+44*d23*p1p3+16*d33*p1p3+
     $     16*d332*p1p3-4*d13*p1p4-24*d213*p1p4-4*d23*p1p4-
     $     16*d331*p1p4-16*d0*p3p4-8*d11*p3p4-8*d12*p3p4-
     $     12*d13*p3p4+32*d213*p3p4+8*d223*p3p4+4*d23*p3p4+
     $     16*d331*p3p4)
c B8(2)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,mt**2,0d0,
     $     mt**2-2d0*p2p4,s,0d0,mt,0d0)
c      write(6,*)'B8(2)=',d1(0)
      call ddfunc_ir(mt,0d0,0d0,mt**2-2d0*p2p4,
     $     -p3p4,-p2p4,p2p3-p3p4,
     $      0d0,0d0,0d0,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv2(2,1)=(2*c12*mt**2+20*d20*mt**2-16*d303*mt**2+4*d23*mt**4-
     $     2*c0*p2p3+2*c11*p2p3+8*d20*p2p3-16*d302*p2p3-
     $     4*d13*mt**2*p2p3+8*d223*mt**2*p2p3-4*d12*p2p3**2+
     $     4*d22*p2p3**2+6*c0*p2p4+2*c11*p2p4-12*d20*p2p4+
     $     16*d301*p2p4+16*d303*p2p4+4*d13*mt**2*p2p4-
     $     8*d213*mt**2*p2p4-12*d23*mt**2*p2p4-4*d0*p2p3*p2p4+
     $     4*d11*p2p3*p2p4+4*d12*p2p3*p2p4-
     $     8*d212*p2p3*p2p4-12*d223*p2p3*p2p4-
     $     4*d11*p2p4**2-4*d13*p2p4**2+4*d21*p2p4**2+
     $     12*d213*p2p4**2+8*d23*p2p4**2+2*c0*p3p4-
     $     2*c11*p3p4-8*d20*p3p4+16*d302*p3p4+
     $     4*d13*mt**2*p3p4-8*d223*mt**2*p3p4+8*d12*p2p3*p3p4-
     $     8*d22*p2p3*p3p4+4*d0*p2p4*p3p4-
     $     4*d11*p2p4*p3p4-4*d12*p2p4*p3p4+
     $     8*d212*p2p4*p3p4+12*d223*p2p4*p3p4-
     $     4*d12*p3p4**2+4*d22*p3p4**2)
      kmv2(2,2)=(-4*c0+10*d20-8*d301-8*d302-8*d303+2*d13*mt**2+
     $     2*d213*mt**2+2*d223*mt**2+2*d23*mt**2-2*d12*p2p3+
     $     2*d212*p2p3+2*d22*p2p3+2*d223*p2p3-2*d0*p2p4+
     $     4*d11*p2p4+2*d12*p2p4+2*d13*p2p4-2*d21*p2p4-
     $     2*d212*p2p4-6*d213*p2p4-4*d223*p2p4-4*d23*p2p4+
     $     2*d12*p3p4-2*d212*p3p4-2*d22*p3p4-2*d223*p3p4)
      kmv2(2,3)=(-(c12*mt)-10*d20*mt+8*d303*mt-2*d23*mt**3+
     $     4*d13*mt*p2p3-2*d223*mt*p2p3-2*d13*mt*p2p4+
     $     2*d213*mt*p2p4+4*d23*mt*p2p4-4*d13*mt*p3p4+
     $     2*d223*mt*p3p4)
      kmv2(2,4)=(-(c12*mt)-10*d20*mt+8*d303*mt-2*d23*mt**3-
     $     2*d223*mt*p2p3-6*d13*mt*p2p4+2*d213*mt*p2p4+
     $     4*d23*mt*p2p4+2*d223*mt*p3p4)
      kmv2(2,5)=(-2*c12*mt**2-2*c11*p2p3-18*d20*p2p3-
     $     4*d23*mt**2*p2p3-4*d223*p2p3**2-2*c11*p2p4+
     $     22*d20*p2p4+4*d23*mt**2*p2p4+4*d13*p2p3*p2p4+
     $     4*d213*p2p3*p2p4+4*d223*p2p3*p2p4+
     $     4*d23*p2p3*p2p4-4*d13*p2p4**2-4*d213*p2p4**2-
     $     4*d23*p2p4**2+2*c11*p3p4+18*d20*p3p4+
     $     8*d13*mt**2*p3p4+4*d213*mt**2*p3p4+4*d223*mt**2*p3p4+
     $     4*d23*mt**2*p3p4+8*d12*p2p3*p3p4+
     $     4*d212*p2p3*p3p4+4*d22*p2p3*p3p4+
     $     8*d223*p2p3*p3p4-8*d0*p2p4*p3p4-
     $     12*d11*p2p4*p3p4-4*d12*p2p4*p3p4-
     $     12*d13*p2p4*p3p4-4*d21*p2p4*p3p4-
     $     4*d212*p2p4*p3p4-8*d213*p2p4*p3p4-
     $     8*d223*p2p4*p3p4-4*d23*p2p4*p3p4-8*d12*p3p4**2-
     $     4*d212*p3p4**2-4*d22*p3p4**2-4*d223*p3p4**2)
      kmv2(2,6)=(-20*d20-2*d13*p2p3-2*d213*p2p3-2*d223*p2p3-
     $     2*d23*p2p3+2*d13*p2p4+2*d213*p2p4+2*d223*p2p4+
     $     2*d23*p2p4+4*d0*p3p4+6*d11*p3p4+6*d12*p3p4+
     $     6*d13*p3p4+2*d21*p3p4+4*d212*p3p4+4*d213*p3p4+
     $     2*d22*p3p4+4*d223*p3p4+2*d23*p3p4)
      kmv2(2,7)=(-(c12*mt)-2*d23*mt*p2p3+2*d23*mt*p2p4+
     $     4*d13*mt*p3p4+2*d213*mt*p3p4+2*d223*mt*p3p4+
     $     2*d23*mt*p3p4)
      kmv2(2,8)=(-(c12*mt)-2*d23*mt*p2p3+2*d23*mt*p2p4+
     $     4*d13*mt*p3p4+2*d213*mt*p3p4+2*d223*mt*p3p4+
     $     2*d23*mt*p3p4)
      kmv2(2,10)=8*d23*mt
      kmv2(2,13)=-8*d23*mt
      kmv2(2,16)=(2*c11+3*c12-14*d20+8*d303-10*d23*mt**2-2*d13*p2p3-
     $     2*d213*p2p3-10*d223*p2p3-2*d23*p2p3+8*d13*p2p4+
     $     2*d23*p2p4+8*d0*p3p4+12*d11*p3p4+4*d12*p3p4+
     $     10*d13*p3p4+4*d21*p3p4+4*d212*p3p4+6*d213*p3p4+
     $     6*d223*p3p4+2*d23*p3p4)
      kmv2(2,19)=(2*c0+2*c11-c12-26*d20-8*d303-6*d23*mt**2+
     $     4*d13*p2p3+8*d213*p2p3-6*d223*p2p3+4*d23*p2p3+
     $     2*d13*p2p4+6*d213*p2p4+8*d23*p2p4+8*d11*p3p4-
     $     4*d13*p3p4+4*d21*p3p4+4*d212*p3p4+6*d223*p3p4-
     $     4*d23*p3p4)
      kmv2(2,22)=(2*c11+3*c12+26*d20+8*d303+6*d23*mt**2+8*d223*p2p3+
     $     2*d13*p2p4-6*d213*p2p4+10*d223*p2p4-4*d23*p2p4-
     $     8*d12*p3p4-4*d212*p3p4-4*d22*p3p4-16*d223*p3p4)
      kmv2(2,25)=(2*c0+2*c11-c12+14*d20-8*d303+10*d23*mt**2-
     $     4*d13*p2p3+2*d223*p2p3-4*d23*p2p3-14*d13*p2p4-
     $     10*d213*p2p4-8*d23*p2p4-8*d0*p3p4-4*d11*p3p4-
     $     12*d12*p3p4-4*d13*p3p4-4*d212*p3p4+4*d213*p3p4-
     $     4*d22*p3p4-6*d223*p3p4+4*d23*p3p4)
      kmv2(2,28)=(-2*c12*mt-2*d23*mt*p2p3-10*d23*mt*p2p4+
     $     8*d13*mt*p3p4+4*d213*mt*p3p4+4*d223*mt*p3p4+
     $     2*d23*mt*p3p4)
      kmv2(2,31)=(2*c12*mt-8*d23*mt*p2p3-8*d13*mt*p3p4-
     $     4*d213*mt*p3p4-4*d223*mt*p3p4+8*d23*mt*p3p4)
      kmv2(2,37)=(-16*d13-16*d213-16*d223-24*d23-8*d33-8*d331-8*d332)
      kmv2(2,46)=(8*d23*mt+8*d33*mt)
      kmv2(2,55)=(8*d23*mt+8*d33*mt)
      kmv2(2,64)=(4*c0-8*c12-24*d20-32*d303-8*d23*mt**2-16*d33*mt**2-
     $     4*d13*p2p3-24*d223*p2p3-4*d23*p2p3-16*d332*p2p3+
     $     4*d13*p2p4+24*d213*p2p4+44*d23*p2p4+16*d33*p2p4+
     $     16*d331*p2p4-16*d0*p3p4-8*d11*p3p4-8*d12*p3p4-
     $     12*d13*p3p4+8*d213*p3p4+32*d223*p3p4+4*d23*p3p4+
     $     16*d332*p3p4)
c B10(1)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p1pq,0d0,mt**2,
     $     mt**2-2d0*p1p3,mt**2-2d0*p1p4,0d0,mt,mt)
      call ddfunc_ir(mt,0d0,mt**2,mt**2-2d0*p1p3,
     $      p1p4,p1p4-p3p4,mt**2-p1p3,
     $      0d0,0d0,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv1(3,1)=(4*c11*mt**2+4*c12*mt**2+24*d20*mt**2-16*d302*mt**2-
     $     16*d303*mt**2+8*d22*mt**4+16*d223*mt**4+8*d23*mt**4+
     $     4*c0*p1p3-4*c12*p1p3-16*d20*p1p3+16*d303*p1p3-
     $     8*d22*mt**2*p1p3-32*d223*mt**2*p1p3-24*d23*mt**2*p1p3+
     $     8*d223*p1p3**2+16*d23*p1p3**2-8*c0*p1p4-
     $     4*c11*p1p4-4*c12*p1p4+8*d20*p1p4-16*d301*p1p4-
     $     8*d12*mt**2*p1p4-8*d13*mt**2*p1p4+16*d212*mt**2*p1p4+
     $     16*d213*mt**2*p1p4+8*d13*p1p3*p1p4-
     $     8*d212*p1p3*p1p4-24*d213*p1p3*p1p4-
     $     8*d11*p1p4**2+8*d21*p1p4**2+8*c0*p3p4+4*c11*p3p4+
     $     4*c12*p3p4-8*d20*p3p4+16*d301*p3p4+
     $     8*d12*mt**2*p3p4+8*d13*mt**2*p3p4-16*d212*mt**2*p3p4-
     $     16*d213*mt**2*p3p4-8*d13*p1p3*p3p4+
     $     8*d212*p1p3*p3p4+24*d213*p1p3*p3p4+
     $     16*d11*p1p4*p3p4-16*d21*p1p4*p3p4-
     $     8*d11*p3p4**2+8*d21*p3p4**2)
      kmv1(3,2)=(-6*c0-2*c11+12*d20-8*d301-8*d303+4*d212*mt**2+
     $     4*d213*mt**2+4*d223*mt**2+4*d23*mt**2+4*d13*p1p3-
     $     4*d212*p1p3-8*d213*p1p3-4*d223*p1p3-8*d23*p1p3-
     $     4*d11*p1p4+4*d21*p1p4+4*d213*p1p4+4*d11*p3p4-
     $     4*d21*p3p4-4*d213*p3p4)
      kmv1(3,3)=(2*c11*mt+2*c12*mt+12*d20*mt-8*d302*mt-8*d303*mt+
     $     4*d22*mt**3+8*d223*mt**3+4*d23*mt**3+4*d12*mt*p1p3+
     $     4*d13*mt*p1p3-4*d22*mt*p1p3-12*d223*mt*p1p3-
     $     8*d23*mt*p1p3+4*d212*mt*p1p4+4*d213*mt*p1p4-
     $     4*d212*mt*p3p4-4*d213*mt*p3p4)
      kmv1(3,4)=(2*c11*mt+2*c12*mt+12*d20*mt-8*d302*mt-8*d303*mt+
     $     4*d22*mt**3+8*d223*mt**3+4*d23*mt**3-4*d22*mt*p1p3-
     $     12*d223*mt*p1p3-8*d23*mt*p1p3-4*d12*mt*p1p4-
     $     4*d13*mt*p1p4+4*d212*mt*p1p4+4*d213*mt*p1p4+
     $     4*d12*mt*p3p4+4*d13*mt*p3p4-4*d212*mt*p3p4-
     $     4*d213*mt*p3p4)
      kmv1(3,5)=(-4*c0*p1p3+16*d20*p1p3-4*d12*mt**2*p1p3-
     $     4*d13*mt**2*p1p3+4*d22*mt**2*p1p3+8*d223*mt**2*p1p3+
     $     4*d23*mt**2*p1p3+4*d13*p1p3**2-4*d223*p1p3**2-
     $     4*d23*p1p3**2+6*c0*p1p4-12*d20*p1p4+
     $     12*d12*mt**2*p1p4+12*d13*mt**2*p1p4-8*d0*p1p3*p1p4-
     $     4*d11*p1p3*p1p4-8*d12*p1p3*p1p4-
     $     20*d13*p1p3*p1p4+4*d212*p1p3*p1p4+
     $     4*d213*p1p3*p1p4+12*d11*p1p4**2-6*c0*p3p4+
     $     12*d20*p3p4-4*d12*mt**2*p3p4-4*d13*mt**2*p3p4+
     $     4*d212*mt**2*p3p4+4*d213*mt**2*p3p4+
     $     12*d13*p1p3*p3p4-4*d212*p1p3*p3p4-
     $     8*d213*p1p3*p3p4-16*d11*p1p4*p3p4+
     $     4*d21*p1p4*p3p4+4*d11*p3p4**2-4*d21*p3p4**2)
      kmv1(3,6)=(5*c0-14*d20+2*d12*mt**2+2*d13*mt**2-8*d13*p1p3+
     $     2*d212*p1p3+2*d213*p1p3+2*d223*p1p3+2*d23*p1p3+
     $     4*d0*p1p4+8*d11*p1p4+4*d12*p1p4+4*d13*p1p4-
     $     2*d11*p3p4+2*d21*p3p4+2*d213*p3p4)
      kmv1(3,7)=(6*d12*mt*p1p3+6*d13*mt*p1p3-2*d22*mt*p1p3-
     $     4*d223*mt*p1p3-2*d23*mt*p1p3-4*d12*mt*p3p4-
     $     4*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4)
      kmv1(3,8)=(-2*d22*mt*p1p3-4*d223*mt*p1p3-2*d23*mt*p1p3-
     $     6*d12*mt*p1p4-6*d13*mt*p1p4+2*d12*mt*p3p4+
     $     2*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4)
      kmv1(3,11)=(8*d22*mt+16*d223*mt+8*d23*mt)
      kmv1(3,14)=(4*d12*mt+4*d13*mt-4*d22*mt-8*d223*mt-4*d23*mt)
      kmv1(3,17)=(-10*c0-2*c11-2*c12+4*d20-8*d302-8*d303-4*d12*mt**2-
     $     4*d13*mt**2+12*d22*mt**2+24*d223*mt**2+12*d23*mt**2+
     $     4*d13*p1p3-12*d223*p1p3-12*d23*p1p3-8*d0*p1p4-
     $     16*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d22*p1p4-
     $     16*d223*p1p4-8*d23*p1p4+4*d11*p3p4+8*d13*p3p4-
     $     4*d21*p3p4-4*d212*p3p4-4*d213*p3p4+8*d223*p3p4+
     $     8*d23*p3p4)
      kmv1(3,20)=(-6*c0-2*c11-2*c12+12*d20+8*d302+8*d303-12*d12*mt**2-
     $     12*d13*mt**2-4*d22*mt**2-8*d223*mt**2-4*d23*mt**2+
     $     4*d0*p1p3-4*d11*p1p3+8*d12*p1p3+20*d13*p1p3+
     $     4*d212*p1p3+4*d213*p1p3+4*d22*p1p3+12*d223*p1p3+
     $     8*d23*p1p3-12*d11*p1p4-4*d212*p1p4-4*d213*p1p4+
     $     4*d11*p3p4-4*d21*p3p4-4*d212*p3p4-4*d213*p3p4)
      kmv1(3,23)=(-2*c11-2*c12-24*d20-8*d302-8*d303-4*d22*mt**2-
     $     8*d223*mt**2-4*d23*mt**2+4*d223*p1p3+4*d23*p1p3-
     $     8*d12*p1p4+4*d13*p1p4-4*d212*p1p4-4*d213*p1p4-
     $     8*d22*p1p4-4*d223*p1p4+4*d23*p1p4-4*d13*p3p4+
     $     4*d213*p3p4-4*d223*p3p4-4*d23*p3p4)
      kmv1(3,26)=(4*c0-2*c11-2*c12-16*d20+8*d302+8*d303-12*d22*mt**2-
     $     24*d223*mt**2-12*d23*mt**2+4*d12*p1p3+4*d22*p1p3+
     $     16*d223*p1p3+12*d23*p1p3+4*d0*p1p4+8*d11*p1p4+
     $     4*d12*p1p4+4*d13*p1p4-12*d212*p1p4-12*d213*p1p4+
     $     4*d0*p3p4-4*d11*p3p4+4*d12*p3p4+4*d13*p3p4+
     $     4*d212*p3p4+8*d213*p3p4)
      kmv1(3,29)=(12*d12*mt*p1p4+12*d13*mt*p1p4+12*d22*mt*p1p4+
     $     24*d223*mt*p1p4+12*d23*mt*p1p4-4*d12*mt*p3p4-
     $     4*d13*mt*p3p4+4*d212*mt*p3p4+4*d213*mt*p3p4-
     $     12*d22*mt*p3p4-24*d223*mt*p3p4-12*d23*mt*p3p4)
      kmv1(3,32)=(4*d12*mt*p1p3+4*d13*mt*p1p3+4*d22*mt*p1p3+
     $     8*d223*mt*p1p3+4*d23*mt*p1p3-8*d12*mt*p3p4-
     $     8*d13*mt*p3p4-4*d212*mt*p3p4-4*d213*mt*p3p4)
      kmv1(3,41)=(-16*d13-16*d212-16*d213-24*d223-24*d23-16*d3123-
     $     8*d321-8*d323-8*d33-8*d331-16*d332)
      kmv1(3,50)=(-8*d12*mt-8*d13*mt-16*d22*mt-32*d223*mt-16*d23*mt-
     $     8*d32*mt-24*d323*mt-8*d33*mt-24*d332*mt)
      kmv1(3,59)=(-8*d22*mt-16*d223*mt-8*d23*mt-8*d32*mt-24*d323*mt-
     $     8*d33*mt-24*d332*mt)
      kmv1(3,68)=(-8*c0-16*d20-32*d302-32*d303-16*d32*mt**2-
     $     48*d323*mt**2-16*d33*mt**2-48*d332*mt**2+16*d13*p1p3+
     $     16*d223*p1p3+16*d23*p1p3+16*d323*p1p3+
     $     16*d33*p1p3+32*d332*p1p3-8*d0*p1p4-16*d11*p1p4-
     $     16*d12*p1p4-16*d13*p1p4-16*d212*p1p4-
     $     16*d213*p1p4-8*d22*p1p4-16*d223*p1p4-8*d23*p1p4-
     $     32*d3123*p1p4-16*d321*p1p4-16*d331*p1p4-
     $     8*d0*p3p4+8*d11*p3p4-16*d12*p3p4+24*d212*p3p4+
     $     24*d213*p3p4-8*d22*p3p4+8*d23*p3p4+32*d3123*p3p4+
     $     16*d321*p3p4+16*d331*p3p4)
c B10(2)
      d1(0)=D0_ir(mt,0d0,s+mt**2-2d0*p2pq,0d0,mt**2,
     $     mt**2-2d0*p2p3,mt**2-2d0*p2p4,0d0,mt,mt)
      call ddfunc_ir(mt,0d0,mt**2,mt**2-2d0*p2p3,
     $      p2p4,p2p4-p3p4,mt**2-p2p3,
     $      0d0,0d0,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv2(3,1)=(4*c11*mt**2+4*c12*mt**2+24*d20*mt**2-16*d302*mt**2-
     $     16*d303*mt**2+8*d22*mt**4+16*d223*mt**4+8*d23*mt**4-
     $     4*c0*p2p3-4*c12*p2p3+16*d20*p2p3+16*d303*p2p3-
     $     8*d12*mt**2*p2p3-8*d13*mt**2*p2p3-16*d223*mt**2*p2p3-
     $     16*d23*mt**2*p2p3+8*d13*p2p3**2+8*d23*p2p3**2+
     $     4*c0*p2p4-4*c11*p2p4-4*c12*p2p4-16*d20*p2p4-
     $     16*d301*p2p4+16*d12*mt**2*p2p4+16*d13*mt**2*p2p4+
     $     16*d212*mt**2*p2p4+16*d213*mt**2*p2p4-
     $     16*d0*p2p3*p2p4-8*d11*p2p3*p2p4-
     $     16*d12*p2p3*p2p4-32*d13*p2p3*p2p4-
     $     16*d213*p2p3*p2p4+16*d11*p2p4**2+8*d21*p2p4**2+
     $     4*c0*p3p4+4*c12*p3p4-16*d20*p3p4-16*d303*p3p4+
     $     8*d12*mt**2*p3p4+8*d13*mt**2*p3p4+8*d223*mt**2*p3p4+
     $     8*d23*mt**2*p3p4-8*d13*p2p3*p3p4-
     $     8*d23*p2p3*p3p4+16*d0*p2p4*p3p4+
     $     8*d11*p2p4*p3p4+16*d12*p2p4*p3p4+
     $     16*d13*p2p4*p3p4+8*d213*p2p4*p3p4)
      kmv2(3,2)=(-4*c0+2*c11+16*d20+8*d301+8*d303-4*d12*mt**2-
     $     4*d13*mt**2-4*d212*mt**2-4*d213*mt**2-4*d223*mt**2-
     $     4*d23*mt**2+
     $     12*d13*p2p3+4*d213*p2p3+4*d23*p2p3-8*d0*p2p4-
     $     12*d11*p2p4-8*d12*p2p4-8*d13*p2p4-4*d21*p2p4-
     $     4*d213*p2p4)
      kmv2(3,3)=(-2*c11*mt-2*c12*mt-12*d20*mt+8*d302*mt+8*d303*mt-
     $     4*d22*mt**3-8*d223*mt**3-4*d23*mt**3+8*d12*mt*p2p3+
     $     8*d13*mt*p2p3+4*d223*mt*p2p3+4*d23*mt*p2p3-
     $     4*d212*mt*p2p4-4*d213*mt*p2p4-8*d12*mt*p3p4-
     $     8*d13*mt*p3p4)
      kmv2(3,4)=(-2*c11*mt-2*c12*mt-12*d20*mt+8*d302*mt+8*d303*mt-
     $     4*d22*mt**3-8*d223*mt**3-4*d23*mt**3+4*d223*mt*p2p3+
     $     4*d23*mt*p2p3-8*d12*mt*p2p4-8*d13*mt*p2p4-
     $     4*d212*mt*p2p4-4*d213*mt*p2p4)
      kmv2(3,5)=(4*c0*p2p3-16*d20*p2p3+4*d12*mt**2*p2p3+
     $     4*d13*mt**2*p2p3-4*d22*mt**2*p2p3-8*d223*mt**2*p2p3-
     $     4*d23*mt**2*p2p3-4*d13*p2p3**2+4*d223*p2p3**2+
     $     4*d23*p2p3**2-6*c0*p2p4+12*d20*p2p4-
     $     12*d12*mt**2*p2p4-12*d13*mt**2*p2p4+8*d0*p2p3*p2p4+
     $     4*d11*p2p3*p2p4+8*d12*p2p3*p2p4+
     $     20*d13*p2p3*p2p4-4*d212*p2p3*p2p4-
     $     4*d213*p2p3*p2p4-12*d11*p2p4**2-4*c0*p3p4+
     $     16*d20*p3p4-4*d212*mt**2*p3p4-4*d213*mt**2*p3p4+
     $     4*d13*p2p3*p3p4+4*d213*p2p3*p3p4-
     $     4*d223*p2p3*p3p4-4*d23*p2p3*p3p4-
     $     8*d0*p2p4*p3p4-8*d12*p2p4*p3p4-
     $     8*d13*p2p4*p3p4-4*d21*p2p4*p3p4-4*d213*p3p4**2)
      kmv2(3,6)=(5*c0-14*d20+2*d12*mt**2+2*d13*mt**2-8*d13*p2p3+
     $     2*d212*p2p3+2*d213*p2p3+2*d223*p2p3+2*d23*p2p3+
     $     4*d0*p2p4+8*d11*p2p4+4*d12*p2p4+4*d13*p2p4-
     $     2*d11*p3p4+2*d21*p3p4+2*d213*p3p4)
      kmv2(3,7)=(6*d12*mt*p2p3+6*d13*mt*p2p3-2*d22*mt*p2p3-
     $     4*d223*mt*p2p3-2*d23*mt*p2p3-4*d12*mt*p3p4-
     $     4*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4)
      kmv2(3,8)=(-2*d22*mt*p2p3-4*d223*mt*p2p3-2*d23*mt*p2p3-
     $     6*d12*mt*p2p4-6*d13*mt*p2p4+2*d12*mt*p3p4+
     $     2*d13*mt*p3p4-2*d212*mt*p3p4-2*d213*mt*p3p4)
      kmv2(3,10)=(8*d22*mt+16*d223*mt+8*d23*mt)
      kmv2(3,13)=(4*d12*mt+4*d13*mt-4*d22*mt-8*d223*mt-4*d23*mt)
      kmv2(3,16)=(10*c0+2*c11+2*c12-4*d20+8*d302+8*d303+4*d12*mt**2+
     $     4*d13*mt**2-12*d22*mt**2-24*d223*mt**2-12*d23*mt**2-
     $     4*d13*p2p3+12*d223*p2p3+12*d23*p2p3+8*d0*p2p4+
     $     16*d11*p2p4+16*d12*p2p4+16*d13*p2p4+8*d22*p2p4+
     $     16*d223*p2p4+8*d23*p2p4-4*d11*p3p4-8*d13*p3p4+
     $     4*d21*p3p4+4*d212*p3p4+4*d213*p3p4-8*d223*p3p4-
     $     8*d23*p3p4)
      kmv2(3,19)=(6*c0+2*c11+2*c12-12*d20-8*d302-8*d303+12*d12*mt**2+
     $     12*d13*mt**2+4*d22*mt**2+8*d223*mt**2+4*d23*mt**2-
     $     4*d0*p2p3+4*d11*p2p3-8*d12*p2p3-20*d13*p2p3-
     $     4*d212*p2p3-4*d213*p2p3-4*d22*p2p3-12*d223*p2p3-
     $     8*d23*p2p3+12*d11*p2p4+4*d212*p2p4+4*d213*p2p4-
     $     4*d11*p3p4+4*d21*p3p4+4*d212*p3p4+4*d213*p3p4)
      kmv2(3,22)=(2*c11+2*c12+24*d20+8*d302+8*d303+4*d22*mt**2+
     $     8*d223*mt**2+4*d23*mt**2-4*d223*p2p3-4*d23*p2p3+
     $     8*d12*p2p4-4*d13*p2p4+4*d212*p2p4+4*d213*p2p4+
     $     8*d22*p2p4+4*d223*p2p4-4*d23*p2p4+4*d13*p3p4-
     $     4*d213*p3p4+4*d223*p3p4+4*d23*p3p4)
      kmv2(3,25)=(-4*c0+2*c11+2*c12+16*d20-8*d302-8*d303+12*d22*mt**2+
     $     24*d223*mt**2+12*d23*mt**2-4*d12*p2p3-4*d22*p2p3-
     $     16*d223*p2p3-12*d23*p2p3-4*d0*p2p4-8*d11*p2p4-
     $     4*d12*p2p4-4*d13*p2p4+12*d212*p2p4+12*d213*p2p4-
     $     4*d0*p3p4+4*d11*p3p4-4*d12*p3p4-4*d13*p3p4-
     $     4*d212*p3p4-8*d213*p3p4)
      kmv2(3,28)=(-12*d12*mt*p2p4-12*d13*mt*p2p4-12*d22*mt*p2p4-
     $     24*d223*mt*p2p4-12*d23*mt*p2p4+4*d12*mt*p3p4+
     $     4*d13*mt*p3p4-4*d212*mt*p3p4-4*d213*mt*p3p4-
     $     4*d22*mt*p3p4-8*d223*mt*p3p4-4*d23*mt*p3p4)
      kmv2(3,31)=(-4*d12*mt*p2p3-4*d13*mt*p2p3-4*d22*mt*p2p3-
     $     8*d223*mt*p2p3-4*d23*mt*p2p3+4*d212*mt*p3p4+
     $     4*d213*mt*p3p4+8*d22*mt*p3p4+16*d223*mt*p3p4+
     $     8*d23*mt*p3p4)
      kmv2(3,37)=(16*d13+16*d212+16*d213+24*d223+24*d23+16*d3123+
     $     8*d321+8*d323+8*d33+8*d331+16*d332)
      kmv2(3,46)=(8*d12*mt+8*d13*mt+16*d22*mt+32*d223*mt+16*d23*mt+
     $     8*d32*mt+24*d323*mt+8*d33*mt+24*d332*mt)
      kmv2(3,55)=(8*d22*mt+16*d223*mt+8*d23*mt+8*d32*mt+24*d323*mt+
     $     8*d33*mt+24*d332*mt)
      kmv2(3,64)=(-8*c0-16*d20-32*d302-32*d303-16*d32*mt**2-
     $     48*d323*mt**2-16*d33*mt**2-48*d332*mt**2+16*d13*p2p3+
     $     16*d223*p2p3+16*d23*p2p3+16*d323*p2p3+
     $     16*d33*p2p3+32*d332*p2p3-8*d0*p2p4-16*d11*p2p4-
     $     16*d12*p2p4-16*d13*p2p4-16*d212*p2p4-
     $     16*d213*p2p4-8*d22*p2p4-16*d223*p2p4-8*d23*p2p4-
     $     32*d3123*p2p4-16*d321*p2p4-16*d331*p2p4-
     $     8*d0*p3p4+8*d11*p3p4-16*d12*p3p4-32*d13*p3p4-
     $     8*d212*p3p4-8*d213*p3p4-8*d22*p3p4-48*d223*p3p4-
     $     40*d23*p3p4-16*d323*p3p4-16*d33*p3p4-32*d332*p3p4)
      do i=1,68
         kmv1(1,i)=-cg/2d0*kmv1(1,i)
         kmv2(1,i)=-cg/2d0*kmv2(1,i)
         kmv1(2,i)=cg/2d0*kmv1(2,i)
         kmv2(2,i)=cg/2d0*kmv2(2,i)
         kmv1(3,i)=cg/2d0*kmv1(3,i)
         kmv2(3,i)=cg/2d0*kmv2(3,i)
      enddo
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine kmvs_finite(s,t1,t2,u1,u2,mt,mh,kmv)
c form factors for the s-channel UV+IR finite contribution
c box diagrams B1(1-6), B3, vertex corr. V4(1-4), V5(1-2)
      implicit none
      integer i,j
      real*8 ncf,cg,cf,mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(16,68)
      complex*16 c0,d0,c11,c12,c20,c21,c22,c23
      complex*16 b0,b1,b20
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4)
      complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323,
     $     d331,d332,d3123

      zero=dcmplx(0d0,0d0)
      do i=1,68
         do j=1,16
            kmv(j,i)=zero
         enddo
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
      cf=(ncf**2-1d0)/ncf/2d0
c B1(1)+B1(6)
      call ddfunc(0d0,0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,
     $     -p3p4,p1p4+p2p4-p3p4,-p1p3-p2p3,
     $      mt,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv(1,3)=(4*c0+8*c11+8*c12+32*d301+
     $     4*d0*p1p3+8*d13*p1p3+4*d0*p2p3+8*d13*p2p3)
      kmv(1,4)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303-
     $     4*d0*p1p4-4*d0*p2p4+
     $     8*d0*p3p4+8*d12*p3p4+8*d13*p3p4)
      kmv(1,28)=(4*c0+32*d303+8*d13*p1p4+8*d13*p2p4+
     $     4*d0*p3p4)
      kmv(1,29)=(4*c0+32*d303+8*d13*p1p4+8*d13*p2p4+
     $     4*d0*p3p4)
      kmv(1,31)=(-4*c0-8*c12+32*d303+
     $     8*d13*p1p3+16*d23*p1p3+8*d13*p2p3+16*d23*p2p3-
     $     4*d0*p3p4+16*d213*p3p4)
      kmv(1,32)=(-4*c0-8*c12+32*d303+
     $     8*d13*p1p3+16*d23*p1p3+8*d13*p2p3+16*d23*p2p3-
     $     4*d0*p3p4+16*d213*p3p4)
      kmv(1,46)=(-8*d13+32*d331)
      kmv(1,47)=(-8*d13+32*d331)
      kmv(1,49)=(-8*d13+32*d331)
      kmv(1,50)=(-8*d13+32*d331)
      kmv(1,55)=(-8*d13-32*d23-32*d33-32*d332)
      kmv(1,56)=(-8*d13-32*d23-32*d33-32*d332)
      kmv(1,58)=(-8*d13-32*d23-32*d33-32*d332)
      kmv(1,59)=(-8*d13-32*d23-32*d33-32*d332)
c B1(2)+B1(5)
      call ddfunc(0d0,2d0*mt**2+2d0*p1p2,
     $     2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,
     $      p1p4+p2p4,p1p4+p2p4-p3p4,2d0*mt**2+2d0*p1p2-p1p3-p2p3,
     $      mt,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv(2,3)=(-4*c0-32*d301-8*d0*mt**2-16*d12*mt**2-16*d13*mt**2-
     $     8*d0*p1p2-16*d12*p1p2-16*d13*p1p2+4*d0*p1p3+
     $     8*d13*p1p3-8*d11*p1p4+4*d0*p2p3+8*d13*p2p3-
     $     8*d11*p2p4+8*d11*p3p4)
      kmv(2,4)=(4*c0+32*d303-4*d0*p1p4-4*d0*p2p4-
     $     8*d13*p3p4)
      kmv(2,28)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303-
     $     8*d0*p1p4-8*d12*p1p4-
     $     8*d13*p1p4-8*d0*p2p4-8*d12*p2p4-8*d13*p2p4+
     $     4*d0*p3p4)
      kmv(2,29)=(8*c0+8*c11+8*c12-32*d20-32*d302-32*d303-
     $     8*d0*p1p4-8*d12*p1p4-
     $     8*d13*p1p4-8*d0*p2p4-8*d12*p2p4-8*d13*p2p4+
     $     4*d0*p3p4)
      kmv(2,31)=(8*c11+8*c12+16*d20-32*d302-32*d303+16*d12*mt**2+
     $     16*d13*mt**2+32*d22*mt**2+64*d223*mt**2+32*d23*mt**2+
     $     16*d12*p1p2+16*d13*p1p2+32*d22*p1p2+64*d223*p1p2+
     $     32*d23*p1p2-8*d12*p1p3-8*d13*p1p3-16*d223*p1p3-
     $     16*d23*p1p3+16*d212*p1p4+16*d213*p1p4-8*d12*p2p3-
     $     8*d13*p2p3-16*d223*p2p3-16*d23*p2p3+16*d212*p2p4+
     $     16*d213*p2p4-4*d0*p3p4)
      kmv(2,32)=(8*c11+8*c12+16*d20-32*d302-32*d303+16*d12*mt**2+
     $     16*d13*mt**2+32*d22*mt**2+64*d223*mt**2+32*d23*mt**2+
     $     16*d12*p1p2+16*d13*p1p2+32*d22*p1p2+64*d223*p1p2+
     $     32*d23*p1p2-8*d12*p1p3-8*d13*p1p3-16*d223*p1p3-
     $     16*d23*p1p3+16*d212*p1p4+16*d213*p1p4-8*d12*p2p3-
     $     8*d13*p2p3-16*d223*p2p3-16*d23*p2p3+16*d212*p2p4+
     $     16*d213*p2p4-4*d0*p3p4)
      kmv(2,46)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321-
     $     32*d331)
      kmv(2,47)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321-
     $     32*d331)
      kmv(2,49)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321-
     $     32*d331)
      kmv(2,50)=(8*d0+8*d12+8*d13-32*d212-32*d213-64*d3123-32*d321-
     $     32*d331)
      kmv(2,55)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332)
      kmv(2,56)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332)
      kmv(2,58)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332)
      kmv(2,59)=(8*d12+8*d13+32*d223+32*d23+32*d323+32*d33+64*d332)
c B1(3)+B1(4)
      call ddfunc(0d0,0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,
     $     -p3p4,p1p3+p2p3-p3p4,-p1p4-p2p4,
     $      mt,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv(3,3)=(-8*c0-8*c11-8*c12+32*d20+32*d302+32*d303+
     $     4*d0*p1p3+4*d0*p2p3-
     $     8*d0*p3p4-8*d12*p3p4-8*d13*p3p4)
      kmv(3,4)=(-4*c0-8*c11-8*c12-32*d301-
     $     4*d0*p1p4-8*d13*p1p4-4*d0*p2p4-8*d13*p2p4)
      kmv(3,28)=(4*c0+8*c12-32*d303-
     $     8*d13*p1p4-16*d23*p1p4-8*d13*p2p4-16*d23*p2p4+
     $     4*d0*p3p4-16*d213*p3p4)
      kmv(3,29)=(4*c0+8*c12-32*d303-
     $     8*d13*p1p4-16*d23*p1p4-8*d13*p2p4-16*d23*p2p4+
     $     4*d0*p3p4-16*d213*p3p4)
      kmv(3,31)=(-4*c0-32*d303-8*d13*p1p3-8*d13*p2p3-
     $     4*d0*p3p4)
      kmv(3,32)=(-4*c0-32*d303-8*d13*p1p3-8*d13*p2p3-
     $     4*d0*p3p4)
      kmv(3,46)=(8*d13+32*d23+32*d33+32*d332)
      kmv(3,47)=(8*d13+32*d23+32*d33+32*d332)
      kmv(3,49)=(8*d13+32*d23+32*d33+32*d332)
      kmv(3,50)=(8*d13+32*d23+32*d33+32*d332)
      kmv(3,55)=(8*d13-32*d331)
      kmv(3,56)=(8*d13-32*d331)
      kmv(3,58)=(8*d13-32*d331)
      kmv(3,59)=(8*d13-32*d331)
c 1/4 comes from color factor
      do i=1,68
         do j=1,3
            kmv(j,i)=kmv(j,i)*mt/4d0
         enddo
      enddo
c V4(1)+V4(2)
      call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,
     $     p1p3+p2p3-p3p4,mt,mt,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
      call bfunc(mh**2,mt,mt,b0,b1,b20)
      kmv(4,3)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+
     $     8*c0*p3p4)
      kmv(4,28)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+
     $     16*c12*p1p2+32*c22*p1p2+16*c23*p1p3+16*c23*p2p3-
     $     8*c0*p3p4+16*c23*p3p4)
      kmv(4,29)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+
     $     16*c12*p1p2+32*c22*p1p2+16*c23*p1p3+16*c23*p2p3-
     $     8*c0*p3p4+16*c23*p3p4)
      kmv(4,31)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+
     $     8*c0*p3p4)
      kmv(4,32)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+
     $     8*c0*p3p4)
      kmv(4,55)=(8*c0-32*c23)
      kmv(4,56)=(8*c0-32*c23)
      kmv(4,58)=(8*c0-32*c23)
      kmv(4,59)=(8*c0-32*c23)
c V4(3)+V4(4)
      call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,
     $     p1p4+p2p4-p3p4,mt,mt,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
      kmv(5,4)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+
     $     8*c0*p3p4)
      kmv(5,28)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+
     $     8*c0*p3p4)
      kmv(5,29)=(8*b0-32*c20-8*c0*p1p4-8*c0*p2p4+
     $     8*c0*p3p4)
      kmv(5,31)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+
     $     16*c12*p1p2+32*c22*p1p2+16*c23*p1p4+16*c23*p2p4-
     $     8*c0*p3p4+16*c23*p3p4)
      kmv(5,32)=(-4*b0+16*c20+16*c12*mt**2+32*c22*mt**2+
     $     16*c12*p1p2+32*c22*p1p2+16*c23*p1p4+16*c23*p2p4-
     $     8*c0*p3p4+16*c23*p3p4)
      kmv(5,46)=(8*c0-32*c23)
      kmv(5,47)=(8*c0-32*c23)
      kmv(5,49)=(8*c0-32*c23)
      kmv(5,50)=(8*c0-32*c23)
c V5(1)+V5(2)
      call ccfunc2(2d0*mt**2+2d0*p1p2,mh**2,
     $     2d0*mt**2+2d0*p1p2-p1p4-p2p4-p1p3-p2p3,mt,mt,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
      call bfunc(s,mt,mt,b0,b1,b20)
      kmv(16,3)=(-4*b0+16*c20-8*c0*mt**2-16*c11*mt**2-16*c12*mt**2-
     $     8*c0*p1p2-16*c11*p1p2-16*c12*p1p2+8*c0*p1p3+
     $     24*c12*p1p3+16*c22*p1p3+16*c23*p1p3-8*c12*p1p4-
     $     16*c22*p1p4-16*c23*p1p4+8*c0*p2p3+24*c12*p2p3+
     $     16*c22*p2p3+16*c23*p2p3-8*c12*p2p4-16*c22*p2p4-
     $     16*c23*p2p4)
      kmv(16,4)=(4*b0-16*c20+8*c0*mt**2+16*c11*mt**2+16*c12*mt**2+
     $     8*c0*p1p2+16*c11*p1p2+16*c12*p1p2+8*c12*p1p3+
     $     16*c22*p1p3+16*c23*p1p3-8*c0*p1p4-24*c12*p1p4-
     $     16*c22*p1p4-16*c23*p1p4+8*c12*p2p3+16*c22*p2p3+
     $     16*c23*p2p3-8*c0*p2p4-24*c12*p2p4-16*c22*p2p4-
     $     16*c23*p2p4)
c 1/2 comes from color factor
      do i=1,68
         kmv(4,i)=kmv(4,i)*mt/2d0
         kmv(5,i)=-kmv(5,i)*mt/2d0
         kmv(16,i)=-kmv(16,i)*mt/2d0
      enddo
c B3
      call ddfunc(s,s+mt**2-2d0*p1pq,mt**2,s-p1pq,p2pq,p2pq-p1p2,
     $      0d0,0d0,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv(6,1)=(-2*c0*p1p3+6*c11*p1p3+8*d20*p1p3-
     $     4*d13*mt**2*p1p3-4*d223*mt**2*p1p3-4*d12*p1p2*p1p3-
     $     4*d22*p1p2*p1p3-8*d223*p1p2*p1p3-
     $     8*d212*p1p3**2-16*d22*p1p3**2+2*c0*p1p4-
     $     6*c11*p1p4-8*d20*p1p4+4*d13*mt**2*p1p4+
     $     4*d223*mt**2*p1p4+4*d12*p1p2*p1p4+
     $     4*d22*p1p2*p1p4+8*d223*p1p2*p1p4+
     $     8*d212*p1p4**2+16*d22*p1p4**2+2*c0*p2p3-
     $     6*c12*p2p3-8*d20*p2p3+4*d12*mt**2*p2p3+
     $     4*d223*mt**2*p2p3+4*d13*p1p2*p2p3+
     $     8*d223*p1p2*p2p3+4*d23*p1p2*p2p3-
     $     4*d0*p1p3*p2p3-8*d11*p1p3*p2p3-
     $     4*d12*p1p3*p2p3-4*d13*p1p3*p2p3+
     $     4*d212*p1p3*p2p3+4*d213*p1p3*p2p3+
     $     4*d22*p1p3*p2p3+16*d223*p1p3*p2p3+
     $     12*d0*p1p4*p2p3+4*d12*p1p4*p2p3+
     $     12*d13*p1p4*p2p3-4*d212*p1p4*p2p3+
     $     4*d213*p1p4*p2p3-4*d22*p1p4*p2p3-4*d13*p2p3**2-
     $     8*d213*p2p3**2-8*d223*p2p3**2-4*d23*p2p3**2-
     $     2*c0*p2p4+6*c12*p2p4+8*d20*p2p4-4*d12*mt**2*p2p4-
     $     4*d223*mt**2*p2p4-4*d13*p1p2*p2p4-
     $     8*d223*p1p2*p2p4-4*d23*p1p2*p2p4-
     $     12*d0*p1p3*p2p4-4*d12*p1p3*p2p4-
     $     12*d13*p1p3*p2p4+4*d212*p1p3*p2p4-
     $     4*d213*p1p3*p2p4+4*d22*p1p3*p2p4+
     $     4*d0*p1p4*p2p4+8*d11*p1p4*p2p4+
     $     4*d12*p1p4*p2p4+4*d13*p1p4*p2p4-
     $     4*d212*p1p4*p2p4-4*d213*p1p4*p2p4-
     $     4*d22*p1p4*p2p4-16*d223*p1p4*p2p4+
     $     4*d13*p2p4**2+8*d213*p2p4**2+8*d223*p2p4**2+
     $     4*d23*p2p4**2-10*c0*p3p4+4*d20*p3p4-
     $     4*d13*mt**2*p3p4+4*d212*mt**2*p3p4-4*d213*mt**2*p3p4+
     $     4*d22*mt**2*p3p4-4*d223*mt**2*p3p4+4*d12*p1p2*p3p4+
     $     4*d212*p1p2*p3p4-4*d213*p1p2*p3p4+
     $     4*d22*p1p2*p3p4-4*d223*p1p2*p3p4-
     $     4*d11*p1p3*p3p4+12*d12*p1p3*p3p4-
     $     4*d21*p1p3*p3p4+4*d212*p1p3*p3p4+
     $     8*d22*p1p3*p3p4+12*d11*p1p4*p3p4+
     $     12*d12*p1p4*p3p4-4*d21*p1p4*p3p4-
     $     28*d212*p1p4*p3p4-24*d22*p1p4*p3p4-
     $     12*d0*p2p3*p3p4-12*d11*p2p3*p3p4-
     $     12*d12*p2p3*p3p4-12*d13*p2p3*p3p4-
     $     4*d21*p2p3*p3p4-8*d212*p2p3*p3p4-
     $     4*d213*p2p3*p3p4-4*d22*p2p3*p3p4-
     $     4*d223*p2p3*p3p4-4*d0*p2p4*p3p4-
     $     12*d11*p2p4*p3p4-12*d12*p2p4*p3p4-
     $     4*d13*p2p4*p3p4-4*d21*p2p4*p3p4-
     $     8*d212*p2p4*p3p4+12*d213*p2p4*p3p4-
     $     4*d22*p2p4*p3p4+12*d223*p2p4*p3p4-
     $     12*d11*p3p4**2-12*d12*p3p4**2+8*d21*p3p4**2+
     $     16*d212*p3p4**2+8*d22*p3p4**2)
      kmv(6,2)=(10*c0-4*d20+4*d13*mt**2-4*d212*mt**2+4*d213*mt**2-
     $     4*d22*mt**2+4*d223*mt**2-4*d12*p1p2-4*d212*p1p2+
     $     4*d213*p1p2-4*d22*p1p2+4*d223*p1p2-4*d11*p1p3-
     $     12*d12*p1p3+4*d21*p1p3+12*d212*p1p3+8*d22*p1p3-
     $     4*d11*p1p4-12*d12*p1p4+4*d21*p1p4+12*d212*p1p4+
     $     8*d22*p1p4+8*d0*p2p3+12*d11*p2p3+12*d12*p2p3+
     $     8*d13*p2p3+4*d21*p2p3+8*d212*p2p3-4*d213*p2p3+
     $     4*d22*p2p3-4*d223*p2p3+8*d0*p2p4+12*d11*p2p4+
     $     12*d12*p2p4+8*d13*p2p4+4*d21*p2p4+8*d212*p2p4-
     $     4*d213*p2p4+4*d22*p2p4-4*d223*p2p4+12*d11*p3p4+
     $     12*d12*p3p4-8*d21*p3p4-16*d212*p3p4-8*d22*p3p4)
      kmv(6,3)=(-12*d20*mt-2*d22*mt**3+4*d223*mt**3-2*d23*mt**3-
     $     2*d22*mt*p1p2+4*d223*mt*p1p2-2*d23*mt*p1p2-
     $     10*d12*mt*p1p3+6*d13*mt*p1p3-6*d212*mt*p1p3-
     $     2*d213*mt*p1p3-4*d22*mt*p1p3-4*d223*mt*p1p3+
     $     6*d12*mt*p1p4-2*d13*mt*p1p4+10*d212*mt*p1p4-
     $     2*d213*mt*p1p4+12*d22*mt*p1p4-4*d223*mt*p1p4+
     $     8*d12*mt*p2p3-4*d13*mt*p2p3+2*d212*mt*p2p3+
     $     6*d213*mt*p2p3+2*d22*mt*p2p3+4*d223*mt*p2p3+
     $     2*d23*mt*p2p3-4*d13*mt*p2p4+2*d212*mt*p2p4-
     $     10*d213*mt*p2p4+2*d22*mt*p2p4-12*d223*mt*p2p4+
     $     2*d23*mt*p2p4-2*d12*mt*p3p4+2*d13*mt*p3p4-
     $     4*d212*mt*p3p4+4*d213*mt*p3p4-4*d22*mt*p3p4+
     $     4*d223*mt*p3p4)
      kmv(6,4)=(12*d20*mt+2*d22*mt**3-4*d223*mt**3+2*d23*mt**3+
     $     2*d22*mt*p1p2-4*d223*mt*p1p2+2*d23*mt*p1p2-
     $     6*d12*mt*p1p3+2*d13*mt*p1p3-10*d212*mt*p1p3+
     $     2*d213*mt*p1p3-12*d22*mt*p1p3+4*d223*mt*p1p3+
     $     10*d12*mt*p1p4-6*d13*mt*p1p4+6*d212*mt*p1p4+
     $     2*d213*mt*p1p4+4*d22*mt*p1p4+4*d223*mt*p1p4+
     $     4*d13*mt*p2p3-2*d212*mt*p2p3+10*d213*mt*p2p3-
     $     2*d22*mt*p2p3+12*d223*mt*p2p3-2*d23*mt*p2p3-
     $     8*d12*mt*p2p4+4*d13*mt*p2p4-2*d212*mt*p2p4-
     $     6*d213*mt*p2p4-2*d22*mt*p2p4-4*d223*mt*p2p4-
     $     2*d23*mt*p2p4+2*d12*mt*p3p4-2*d13*mt*p3p4+
     $     4*d212*mt*p3p4-4*d213*mt*p3p4+4*d22*mt*p3p4-
     $     4*d223*mt*p3p4)
c B4
c B4 develops three different color structures:
c s-channel color structure:
      kmv(7,1)=(-2*c0+4*d12*p1p3+4*d12*p1p4-4*d11*p3p4-
     $     4*d12*p3p4)
      kmv(7,3)=(2*d12*mt-2*d13*mt)
      kmv(7,4)=(2*d12*mt-2*d13*mt)
      kmv(7,5)=(2*c0-4*d12*p1p3-4*d12*p1p4+4*d11*p3p4+
     $     4*d12*p3p4)
      kmv(7,7)=(2*d12*mt-2*d13*mt)
      kmv(7,8)=(2*d12*mt-2*d13*mt)
      kmv(7,16)=(2*d0+2*d11+2*d12+2*d13)
      kmv(7,17)=-2*d11
      kmv(7,19)=(2*d0+2*d11+2*d12+2*d13)
      kmv(7,20)=-2*d11
      kmv(7,22)=(2*d0+2*d11+2*d12+2*d13)
      kmv(7,23)=-2*d11
      kmv(7,25)=(2*d0+2*d11+2*d12+2*d13)
      kmv(7,26)=-2*d11
      kmv(7,28)=(2*d12*mt-2*d13*mt)
      kmv(7,29)=(-2*d12*mt+2*d13*mt)
      kmv(7,31)=(-2*d12*mt+2*d13*mt)
      kmv(7,32)=(2*d12*mt-2*d13*mt)
      kmv(7,65)=(-4*d0-4*d12-4*d13)
      kmv(7,67)=(4*d0+4*d12+4*d13)
c t-channel color structure, same as of B8_t:
      kmv(8,1)=(2*c0-4*d0*p1p2-4*d12*p1p2-4*d13*p1p2-
     $     4*d11*p1p3-4*d12*p1p3-4*d11*p1p4-4*d12*p1p4+
     $     4*d0*p2p3+4*d11*p2p3+4*d12*p2p3+4*d13*p2p3+
     $     4*d0*p2p4+4*d11*p2p4+4*d12*p2p4+4*d13*p2p4+
     $     4*d11*p3p4+4*d12*p3p4)
      kmv(8,3)=(-2*d0*mt-4*d11*mt-2*d12*mt-2*d13*mt)
      kmv(8,4)=(-2*d0*mt-4*d11*mt-2*d12*mt-2*d13*mt)
      kmv(8,5)=(c0-2*d12*p1p3-2*d12*p1p4+2*d11*p3p4+
     $     2*d12*p3p4)
      kmv(8,7)=(d12*mt-d13*mt)
      kmv(8,8)=(d12*mt-d13*mt)
      kmv(8,16)=(2*d0+2*d11+2*d12+2*d13)
      kmv(8,20)=-2*d11
      kmv(8,22)=(2*d0+2*d11+2*d12+2*d13)
      kmv(8,26)=-2*d11
      kmv(8,28)=(2*d12*mt-2*d13*mt)
      kmv(8,32)=(2*d12*mt-2*d13*mt)
      kmv(8,67)=(4*d0+4*d12+4*d13)
c u-channel color structure, same as of B8_u:      
      kmv(9,1)=(-4*c0+4*d0*p1p2+4*d12*p1p2+4*d13*p1p2+
     $     4*d11*p1p3+8*d12*p1p3+4*d11*p1p4+8*d12*p1p4-
     $     4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3-
     $     4*d0*p2p4-4*d11*p2p4-4*d12*p2p4-4*d13*p2p4-
     $     8*d11*p3p4-8*d12*p3p4)
      kmv(9,3)=(2*d0*mt+4*d11*mt+4*d12*mt)
      kmv(9,4)=(2*d0*mt+4*d11*mt+4*d12*mt)
      kmv(9,5)=(c0-2*d12*p1p3-2*d12*p1p4+2*d11*p3p4+
     $     2*d12*p3p4)
      kmv(9,7)=(d12*mt-d13*mt)
      kmv(9,8)=(d12*mt-d13*mt)
      kmv(9,17)=-2*d11
      kmv(9,19)=(2*d0+2*d11+2*d12+2*d13)
      kmv(9,23)=-2*d11
      kmv(9,25)=(2*d0+2*d11+2*d12+2*d13)
      kmv(9,29)=(-2*d12*mt+2*d13*mt)
      kmv(9,31)=(-2*d12*mt+2*d13*mt)
      kmv(9,65)=(-4*d0-4*d12-4*d13)
c V6(1)
c V6(1) develops three different color structures:
      call ccfunc2(s,mt**2,p1pq,0d0,0d0,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
c s-channel color structure:
      kmv(10,1)=(4*c12*mt**2+4*c11*p1p3+4*c11*p1p4-4*c11*p3p4)
      kmv(10,3)=2*c12*mt
      kmv(10,4)=2*c12*mt
      kmv(10,5)=(-4*c12*mt**2-4*c11*p1p3-4*c11*p1p4+4*c11*p3p4)
      kmv(10,7)=2*c12*mt
      kmv(10,8)=2*c12*mt
      kmv(10,17)=(2*c0+4*c11+2*c12)
      kmv(10,20)=(2*c0+4*c11+2*c12)
      kmv(10,23)=(2*c0+4*c11+2*c12)
      kmv(10,26)=(2*c0+4*c11+2*c12)
      kmv(10,29)=-4*c12*mt
      kmv(10,32)=4*c12*mt
c t-channel color structure, same as of B8_t:
      kmv(11,1)=4*c0*mt**2
      kmv(11,3)=2*c0*mt
      kmv(11,4)=2*c0*mt
      kmv(11,5)=(-2*c12*mt**2-2*c11*p1p3-2*c11*p1p4+2*c11*p3p4)
      kmv(11,7)=c12*mt
      kmv(11,8)=c12*mt
      kmv(11,17)=2*c11
      kmv(11,20)=(2*c0+2*c11+2*c12)
      kmv(11,23)=2*c11
      kmv(11,26)=(2*c0+2*c11+2*c12)
      kmv(11,29)=-2*c12*mt
      kmv(11,32)=2*c12*mt
      kmv(11,68)=(-4*c0-4*c12)
c u-channel color structure, same as of B8_u:      
      kmv(12,1)=(-4*c0*mt**2+4*c12*mt**2+4*c11*p1p3+4*c11*p1p4-
     $     4*c11*p3p4)
      kmv(12,3)=(-2*c0*mt+2*c12*mt)
      kmv(12,4)=(-2*c0*mt+2*c12*mt)
      kmv(12,5)=(-2*c12*mt**2-2*c11*p1p3-2*c11*p1p4+2*c11*p3p4)
      kmv(12,7)=c12*mt
      kmv(12,8)=c12*mt
      kmv(12,17)=(2*c0+2*c11+2*c12)
      kmv(12,20)=2*c11
      kmv(12,23)=(2*c0+2*c11+2*c12)
      kmv(12,26)=2*c11
      kmv(12,29)=-2*c12*mt
      kmv(12,32)=2*c12*mt
      kmv(12,68)=(4*c0+4*c12)
c V6(2)
c V6(2) develops three different color structures:
      call ccfunc2(s,mt**2,p2pq,0d0,0d0,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
c s-channel color structure:
      kmv(13,1)=(4*c12*mt**2+4*c11*p2p3+4*c11*p2p4-4*c11*p3p4)
      kmv(13,3)=-2*c12*mt
      kmv(13,4)=-2*c12*mt
      kmv(13,5)=(-4*c12*mt**2-4*c11*p2p3-4*c11*p2p4+4*c11*p3p4)
      kmv(13,7)=-2*c12*mt
      kmv(13,8)=-2*c12*mt
      kmv(13,16)=(2*c0+4*c11+2*c12)
      kmv(13,19)=(2*c0+4*c11+2*c12)
      kmv(13,22)=(2*c0+4*c11+2*c12)
      kmv(13,25)=(2*c0+4*c11+2*c12)
      kmv(13,28)=-4*c12*mt
      kmv(13,31)=4*c12*mt
c t-channel color structure, same as of B8_t:
      kmv(14,1)=4*c0*mt**2
      kmv(14,3)=-2*c0*mt
      kmv(14,4)=-2*c0*mt
      kmv(14,5)=(-2*c12*mt**2-2*c11*p2p3-2*c11*p2p4+2*c11*p3p4)
      kmv(14,7)=-(c12*mt)
      kmv(14,8)=-(c12*mt)
      kmv(14,16)=(2*c0+2*c11+2*c12)
      kmv(14,19)=2*c11
      kmv(14,22)=(2*c0+2*c11+2*c12)
      kmv(14,25)=2*c11
      kmv(14,28)=-2*c12*mt
      kmv(14,31)=2*c12*mt
      kmv(14,64)=(-4*c0-4*c12)
c u-channel color structure, same as of B8_u:      
      kmv(15,1)=(-4*c0*mt**2+4*c12*mt**2+4*c11*p2p3+4*c11*p2p4-
     $     4*c11*p3p4)
      kmv(15,3)=(2*c0*mt-2*c12*mt)
      kmv(15,4)=(2*c0*mt-2*c12*mt)
      kmv(15,5)=(-2*c12*mt**2-2*c11*p2p3-2*c11*p2p4+2*c11*p3p4)
      kmv(15,7)=-(c12*mt)
      kmv(15,8)=-(c12*mt)
      kmv(15,16)=2*c11
      kmv(15,19)=(2*c0+2*c11+2*c12)
      kmv(15,22)=2*c11
      kmv(15,25)=(2*c0+2*c11+2*c12)
      kmv(15,28)=-2*c12*mt
      kmv(15,31)=2*c12*mt
      kmv(15,64)=(4*c0+4*c12)
      do i=1,68
         do j=6,15
            kmv(j,i)=-cg/2d0*kmv(j,i)
         enddo
      enddo
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine kmvt_finite(s,t1,t2,u1,u2,mt,mh,kmv)
c form factors for the t(u)-channel UV+IR finite contribution
c vertex corr. V10(1-4), box diagrams B5,B6,B9
      implicit none
      integer i,j
      real*8 ncf,cg,cf,mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(15,68)
      complex*16 c0,d0,c11,c12,c20,c21,c22,c23
      complex*16 b0,b1,b20
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3),c1(0:2,4),c2(0:3,4)
      complex*16 d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 d301,d302,d303,d31,d32,d33,d312,d313,d321,d323,
     $     d331,d332,d3123

      zero=dcmplx(0d0,0d0)
      do i=1,68
         do j=1,15
            kmv(j,i)=zero
         enddo
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
      cf=(ncf**2-1d0)/ncf/2d0
c V10(1)+V10(2)
      call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,
     $     p1p4+p2p4-p3p4,mt,mt,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
      call bfunc(mh**2,mt,mt,b0,b1,b20)
      kmv(1,8)=(4*b0 - 16*c20 - 4*c0*p1p4 - 4*c0*p2p4 + 
     $     4*c0*p3p4)
      kmv(1,13)=(4*c0 - 16*c23)
      kmv(1,14)=(4*c0 - 16*c23)
      kmv(1,29)=(-8*b0 + 32*c20 + 8*c0*p1p4 + 8*c0*p2p4 - 
     $     8*c0*p3p4)
      kmv(1,31)=(-16*c12*p1p3 - 32*c22*p1p3)
      kmv(1,32)=(-16*c12*p1p3 - 32*c22*p1p3)
      kmv(1,47)=(-8*c0 + 32*c23)
      kmv(1,50)=(-8*c0 + 32*c23)
c V10(3)+V10(4)
      call ccfunc2(0d0,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,
     $     p1p3+p2p3-p3p4,mt,mt,mt,
     $     c0,c11,c12,c21,c22,c20,c23)
      kmv(2,7)=(-4*b0+16*c20+4*c0*p1p3+4*c0*p2p3-
     $     4*c0*p3p4)
      kmv(2,10)=(-4*c0+16*c23)
      kmv(2,11)=(-4*c0+16*c23)
      kmv(2,28)=(16*c12*p2p4+32*c22*p2p4)
      kmv(2,29)=(16*c12*p2p4+32*c22*p2p4)
      kmv(2,31)=(8*b0-32*c20-8*c0*p1p3-8*c0*p2p3+
     $     8*c0*p3p4)
      kmv(2,55)=(8*c0-32*c23)
      kmv(2,56)=(8*c0-32*c23)
c 1/2 comes from color factor
      do i=1,68
         kmv(1,i)=kmv(1,i)*mt/2d0
         kmv(2,i)=kmv(2,i)*mt/2d0
      enddo
c B5(1)
      call ddfunc(mt**2,s+mt**2-2d0*p1pq,mt**2-2d0*p1p3,p2pq-p1p2,
     $     -p1p2+p2p3,mt**2-p1p3-p1pq+p3p4,0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv(3,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4-
     $     8*d12*p1p3*p2p4-8*d13*p1p3*p2p4)
      kmv(3,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2-
     $     4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3)
      kmv(3,7)=(-4*d0*mt*p1p3-8*d11*mt*p1p3)
      kmv(3,8)=(2*c0*mt-8*d20*mt+4*d12*mt**3+4*d13*mt**3-
     $     4*d11*mt*p1p2-4*d0*mt*p1p3-8*d12*mt*p1p3-
     $     8*d13*mt*p1p3+4*d11*mt*p1p4-4*d12*mt*p1p4+
     $     4*d11*mt*p2p3+4*d12*mt*p2p4+4*d13*mt*p2p4-
     $     4*d11*mt*p3p4+4*d12*mt*p3p4)
      kmv(3,13)=(-4*d12*mt-4*d13*mt-8*d212*mt)
      kmv(3,14)=(-4*d11*mt+8*d12*mt+8*d22*mt+8*d223*mt)
      kmv(3,17)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2-
     $     8*d13*p1p2+8*d0*p2p3+8*d11*p2p3+8*d12*p2p3+
     $     8*d13*p2p3)
      kmv(3,19)=(8*d0*p1p3+8*d11*p1p3+8*d12*p1p3+8*d13*p1p3)
      kmv(3,25)=(-8*c0-4*c11-4*c12+8*d20-8*d12*mt**2-8*d13*mt**2-
     $     8*d212*mt**2-8*d213*mt**2-8*d212*p1p2-8*d213*p1p2+
     $     8*d0*p1p3+8*d11*p1p3+16*d12*p1p3+16*d13*p1p3+
     $     8*d12*p1p4+8*d212*p2p3+8*d213*p2p3+8*d212*p2p4-
     $     8*d12*p3p4)
      kmv(3,26)=(-8*c0-4*c11-4*c12+8*d22*mt**2+16*d223*mt**2+
     $     8*d23*mt**2+8*d0*p1p2+8*d11*p1p2+16*d12*p1p2+
     $     16*d13*p1p2+8*d22*p1p2+16*d223*p1p2+8*d23*p1p2+
     $     8*d12*p1p3+8*d13*p1p3+8*d12*p1p4-8*d0*p2p3-
     $     8*d11*p2p3-16*d12*p2p3-16*d13*p2p3-8*d22*p2p3-
     $     16*d223*p2p3-8*d23*p2p3-8*d12*p2p4-8*d22*p2p4-
     $     8*d223*p2p4-8*d12*p3p4)
      kmv(3,29)=(-4*c0*mt+16*d20*mt-8*d12*mt**3-8*d13*mt**3+
     $     8*d11*mt*p1p2+8*d0*mt*p1p3+16*d12*mt*p1p3+
     $     16*d13*mt*p1p3-8*d11*mt*p1p4+8*d12*mt*p1p4-
     $     8*d11*mt*p2p3-8*d12*mt*p2p4-8*d13*mt*p2p4+
     $     8*d11*mt*p3p4-8*d12*mt*p3p4)
      kmv(3,31)=(8*d11*mt*p1p3+16*d212*mt*p1p3+16*d213*mt*p1p3)
      kmv(3,32)=(-8*d0*mt*p1p3-24*d12*mt*p1p3-24*d13*mt*p1p3-
     $     16*d22*mt*p1p3-32*d223*mt*p1p3-16*d23*mt*p1p3)
      kmv(3,47)=(8*d12*mt+8*d13*mt+16*d212*mt)
      kmv(3,50)=(8*d11*mt-16*d12*mt-16*d22*mt-16*d223*mt)
      kmv(3,65)=(16*c0+8*c11+8*c12-16*d20+16*d12*mt**2+16*d13*mt**2+
     $     16*d212*mt**2+16*d213*mt**2+16*d212*p1p2+16*d213*p1p2-
     $     16*d0*p1p3-16*d11*p1p3-32*d12*p1p3-32*d13*p1p3-
     $     16*d12*p1p4-16*d212*p2p3-16*d213*p2p3-
     $     16*d212*p2p4+16*d12*p3p4)
      kmv(3,68)=(16*c0+8*c11+8*c12-16*d22*mt**2-32*d223*mt**2-
     $     16*d23*mt**2-16*d0*p1p2-16*d11*p1p2-32*d12*p1p2-
     $     32*d13*p1p2-16*d22*p1p2-32*d223*p1p2-16*d23*p1p2-
     $     16*d12*p1p3-16*d13*p1p3-16*d12*p1p4+16*d0*p2p3+
     $     16*d11*p2p3+32*d12*p2p3+32*d13*p2p3+16*d22*p2p3+
     $     32*d223*p2p3+16*d23*p2p3+16*d12*p2p4+16*d22*p2p4+
     $     16*d223*p2p4+16*d12*p3p4)
c B5(2)
      call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2-2d0*p1p3,mt**2-p2p4,
     $     -p1p2+p2p3,p1p4-p3p4-p1p2+p2p3,0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv(4,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4-
     $     8*d12*p1p3*p2p4-8*d13*p1p3*p2p4)
      kmv(4,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2-
     $     4*d0*p2p3-4*d11*p2p3-4*d12*p2p3-4*d13*p2p3)
      kmv(4,7)=(-4*d0*mt*p1p3-8*d11*mt*p1p3-8*d12*mt*p1p3)
      kmv(4,8)=(2*c0*mt-8*d20*mt+4*d11*mt**3+4*d12*mt**3-
     $     4*d13*mt*p1p2+4*d11*mt*p1p4+4*d12*mt*p1p4+
     $     4*d13*mt*p2p3-4*d12*mt*p2p4+4*d13*mt*p2p4-
     $     4*d11*mt*p3p4-4*d12*mt*p3p4)
      kmv(4,13)=(8*d12*mt-4*d13*mt+8*d212*mt+8*d22*mt)
      kmv(4,14)=(-4*d11*mt-4*d12*mt-8*d223*mt)
      kmv(4,17)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2-
     $     8*d13*p1p2+8*d0*p2p3+8*d11*p2p3+8*d12*p2p3+
     $     8*d13*p2p3)
      kmv(4,19)=(8*d0*p1p3+8*d11*p1p3+8*d12*p1p3+8*d13*p1p3)
      kmv(4,25)=(4*c0-4*c12-8*d21*mt**2-16*d212*mt**2-8*d22*mt**2-
     $     8*d0*p1p2-16*d11*p1p2-16*d12*p1p2-8*d13*p1p2-
     $     8*d21*p1p2-16*d212*p1p2-8*d22*p1p2-16*d13*p1p3-
     $     16*d213*p1p3-16*d223*p1p3+8*d12*p1p4+8*d212*p1p4+
     $     8*d22*p1p4+8*d0*p2p3+16*d11*p2p3+16*d12*p2p3+
     $     8*d13*p2p3+8*d21*p2p3+16*d212*p2p3+8*d22*p2p3-
     $     8*d12*p2p4-8*d12*p3p4-8*d212*p3p4-8*d22*p3p4)
      kmv(4,26)=(4*c0-4*c12-8*d20+8*d11*mt**2+8*d12*mt**2+8*d213*mt**2+
     $     8*d223*mt**2+8*d213*p1p2+8*d223*p1p2+16*d23*p1p3-
     $     8*d223*p1p4-8*d213*p2p3-8*d223*p2p3-8*d12*p2p4+
     $     8*d223*p3p4)
      kmv(4,29)=(-4*c0*mt+16*d20*mt-8*d11*mt**3-8*d12*mt**3+
     $     8*d13*mt*p1p2-8*d11*mt*p1p4-8*d12*mt*p1p4-
     $     8*d13*mt*p2p3+8*d12*mt*p2p4-8*d13*mt*p2p4+
     $     8*d11*mt*p3p4+8*d12*mt*p3p4)
      kmv(4,31)=(8*d0*mt*p1p3+8*d11*mt*p1p3+8*d12*mt*p1p3+
     $     16*d13*mt*p1p3+16*d213*mt*p1p3+16*d223*mt*p1p3)
      kmv(4,32)=(-8*d13*mt*p1p3-16*d23*mt*p1p3)
      kmv(4,47)=(-16*d12*mt+8*d13*mt-16*d212*mt-16*d22*mt)
      kmv(4,50)=(8*d11*mt+8*d12*mt+16*d223*mt)
      kmv(4,65)=(-8*c0+8*c12+16*d21*mt**2+32*d212*mt**2+16*d22*mt**2+
     $     16*d0*p1p2+32*d11*p1p2+32*d12*p1p2+16*d13*p1p2+
     $     16*d21*p1p2+32*d212*p1p2+16*d22*p1p2+32*d13*p1p3+
     $     32*d213*p1p3+32*d223*p1p3-16*d12*p1p4-
     $     16*d212*p1p4-16*d22*p1p4-16*d0*p2p3-32*d11*p2p3-
     $     32*d12*p2p3-16*d13*p2p3-16*d21*p2p3-32*d212*p2p3-
     $     16*d22*p2p3+16*d12*p2p4+16*d12*p3p4+16*d212*p3p4+
     $     16*d22*p3p4)
      kmv(4,68)=(-8*c0+8*c12+16*d20-16*d11*mt**2-16*d12*mt**2-
     $     16*d213*mt**2-16*d223*mt**2-16*d213*p1p2-16*d223*p1p2-
     $     32*d23*p1p3+16*d223*p1p4+16*d213*p2p3+
     $     16*d223*p2p3+16*d12*p2p4-16*d223*p3p4)
c B6(1)
      call ddfunc(mt**2,mt**2-2d0*p2p4,s+mt**2-2d0*p2pq,p1p4-p1p2,
     $     -p1p2+p1pq,mt**2-p2p4-p2pq+p3p4,0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv(5,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4-
     $     8*d12*p1p3*p2p4-8*d13*p1p3*p2p4)
      kmv(5,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2-
     $     4*d0*p1p4-4*d11*p1p4-4*d12*p1p4-4*d13*p1p4)
      kmv(5,7)=(-2*c0*mt+8*d20*mt-4*d12*mt**3-4*d13*mt**3+
     $     4*d11*mt*p1p2-4*d12*mt*p1p3-4*d13*mt*p1p3-
     $     4*d11*mt*p1p4-4*d11*mt*p2p3+4*d13*mt*p2p3+
     $     4*d0*mt*p2p4+8*d12*mt*p2p4+8*d13*mt*p2p4+
     $     4*d11*mt*p3p4-4*d13*mt*p3p4)
      kmv(5,8)=(4*d0*mt*p2p4+8*d11*mt*p2p4)
      kmv(5,10)=(4*d11*mt-8*d13*mt-8*d223*mt-8*d23*mt)
      kmv(5,11)=(4*d12*mt+4*d13*mt+8*d213*mt)
      kmv(5,16)=(-8*c0-4*c11-4*c12+8*d22*mt**2+16*d223*mt**2+
     $     8*d23*mt**2+8*d0*p1p2+8*d11*p1p2+16*d12*p1p2+
     $     16*d13*p1p2+8*d22*p1p2+16*d223*p1p2+8*d23*p1p2-
     $     8*d13*p1p3-8*d223*p1p3-8*d23*p1p3-8*d0*p1p4-
     $     8*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d22*p1p4-
     $     16*d223*p1p4-8*d23*p1p4+8*d13*p2p3+8*d12*p2p4+
     $     8*d13*p2p4-8*d13*p3p4)
      kmv(5,17)=(-8*c0-4*c11-4*c12+8*d20-8*d12*mt**2-8*d13*mt**2-
     $     8*d212*mt**2-8*d213*mt**2-8*d212*p1p2-8*d213*p1p2+
     $     8*d213*p1p3+8*d212*p1p4+8*d213*p1p4+8*d13*p2p3+
     $     8*d0*p2p4+8*d11*p2p4+16*d12*p2p4+16*d13*p2p4-
     $     8*d13*p3p4)
      kmv(5,23)=(8*d0*p2p4+8*d11*p2p4+8*d12*p2p4+8*d13*p2p4)
      kmv(5,25)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2-
     $     8*d13*p1p2+8*d0*p1p4+8*d11*p1p4+8*d12*p1p4+
     $     8*d13*p1p4)
      kmv(5,28)=(8*d0*mt*p2p4+24*d12*mt*p2p4+24*d13*mt*p2p4+
     $     16*d22*mt*p2p4+32*d223*mt*p2p4+16*d23*mt*p2p4)
      kmv(5,29)=(-8*d11*mt*p2p4-16*d212*mt*p2p4-16*d213*mt*p2p4)
      kmv(5,31)=(4*c0*mt-16*d20*mt+8*d12*mt**3+8*d13*mt**3-
     $     8*d11*mt*p1p2+8*d12*mt*p1p3+8*d13*mt*p1p3+
     $     8*d11*mt*p1p4+8*d11*mt*p2p3-8*d13*mt*p2p3-
     $     8*d0*mt*p2p4-16*d12*mt*p2p4-16*d13*mt*p2p4-
     $     8*d11*mt*p3p4+8*d13*mt*p3p4)
      kmv(5,55)=(-8*d11*mt+16*d13*mt+16*d223*mt+16*d23*mt)
      kmv(5,56)=(-8*d12*mt-8*d13*mt-16*d213*mt)
      kmv(5,64)=(16*c0+8*c11+8*c12-16*d22*mt**2-32*d223*mt**2-
     $     16*d23*mt**2-16*d0*p1p2-16*d11*p1p2-32*d12*p1p2-
     $     32*d13*p1p2-16*d22*p1p2-32*d223*p1p2-16*d23*p1p2+
     $     16*d13*p1p3+16*d223*p1p3+16*d23*p1p3+16*d0*p1p4+
     $     16*d11*p1p4+32*d12*p1p4+32*d13*p1p4+16*d22*p1p4+
     $     32*d223*p1p4+16*d23*p1p4-16*d13*p2p3-16*d12*p2p4-
     $     16*d13*p2p4+16*d13*p3p4)
      kmv(5,65)=(16*c0+8*c11+8*c12-16*d20+16*d12*mt**2+16*d13*mt**2+
     $     16*d212*mt**2+16*d213*mt**2+16*d212*p1p2+16*d213*p1p2-
     $     16*d213*p1p3-16*d212*p1p4-16*d213*p1p4-
     $     16*d13*p2p3-16*d0*p2p4-16*d11*p2p4-32*d12*p2p4-
     $     32*d13*p2p4+16*d13*p3p4)
c B6(2)
      call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2-2d0*p1p3,p1p4-p1p2,
     $     mt**2-p1p3,p1p4-p3p4-p1p2+p2p3,0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      kmv(6,5)=(-8*d0*p1p3*p2p4-8*d11*p1p3*p2p4-
     $     8*d12*p1p3*p2p4-8*d13*p1p3*p2p4)
      kmv(6,6)=(4*d0*p1p2+4*d11*p1p2+4*d12*p1p2+4*d13*p1p2-
     $     4*d0*p1p4-4*d11*p1p4-4*d12*p1p4-4*d13*p1p4)
      kmv(6,7)=(-2*c0*mt+8*d20*mt-4*d11*mt**3-4*d13*mt**3+
     $     4*d12*mt*p1p2-4*d12*mt*p1p3+4*d13*mt*p1p3-
     $     4*d12*mt*p1p4-4*d11*mt*p2p3-4*d13*mt*p2p3+
     $     4*d11*mt*p3p4+4*d13*mt*p3p4)
      kmv(6,8)=(4*d0*mt*p2p4+8*d11*mt*p2p4+8*d13*mt*p2p4)
      kmv(6,10)=(4*d11*mt+4*d13*mt+8*d223*mt)
      kmv(6,11)=(4*d12*mt-8*d13*mt-8*d213*mt-8*d23*mt)
      kmv(6,16)=(4*c0-4*c11-8*d20+8*d11*mt**2+8*d13*mt**2+8*d212*mt**2+
     $     8*d223*mt**2+8*d212*p1p2+8*d223*p1p2-8*d13*p1p3-
     $     8*d212*p1p4-8*d223*p1p4-8*d223*p2p3+16*d22*p2p4+
     $     8*d223*p3p4)
      kmv(6,17)=(4*c0-4*c11-8*d21*mt**2-16*d213*mt**2-8*d23*mt**2-
     $     8*d0*p1p2-16*d11*p1p2-8*d12*p1p2-16*d13*p1p2-
     $     8*d21*p1p2-16*d213*p1p2-8*d23*p1p2-8*d13*p1p3+
     $     8*d0*p1p4+16*d11*p1p4+8*d12*p1p4+16*d13*p1p4+
     $     8*d21*p1p4+16*d213*p1p4+8*d23*p1p4+8*d13*p2p3+
     $     8*d213*p2p3+8*d23*p2p3-16*d12*p2p4-16*d212*p2p4-
     $     16*d223*p2p4-8*d13*p3p4-8*d213*p3p4-8*d23*p3p4)
      kmv(6,23)=(8*d0*p2p4+8*d11*p2p4+8*d12*p2p4+8*d13*p2p4)
      kmv(6,25)=(-8*d0*p1p2-8*d11*p1p2-8*d12*p1p2-
     $     8*d13*p1p2+8*d0*p1p4+8*d11*p1p4+8*d12*p1p4+
     $     8*d13*p1p4)
      kmv(6,28)=(8*d12*mt*p2p4+16*d22*mt*p2p4)
      kmv(6,29)=(-8*d0*mt*p2p4-8*d11*mt*p2p4-16*d12*mt*p2p4-
     $     8*d13*mt*p2p4-16*d212*mt*p2p4-16*d223*mt*p2p4)
      kmv(6,31)=(4*c0*mt-16*d20*mt+8*d11*mt**3+8*d13*mt**3-
     $     8*d12*mt*p1p2+8*d12*mt*p1p3-8*d13*mt*p1p3+
     $     8*d12*mt*p1p4+8*d11*mt*p2p3+8*d13*mt*p2p3-
     $     8*d11*mt*p3p4-8*d13*mt*p3p4)
      kmv(6,55)=(-8*d11*mt-8*d13*mt-16*d223*mt)
      kmv(6,56)=(-8*d12*mt+16*d13*mt+16*d213*mt+16*d23*mt)
      kmv(6,64)=(-8*c0+8*c11+16*d20-16*d11*mt**2-16*d13*mt**2-
     $     16*d212*mt**2-16*d223*mt**2-16*d212*p1p2-16*d223*p1p2+
     $     16*d13*p1p3+16*d212*p1p4+16*d223*p1p4+
     $     16*d223*p2p3-32*d22*p2p4-16*d223*p3p4)
      kmv(6,65)=(-8*c0+8*c11+16*d21*mt**2+32*d213*mt**2+16*d23*mt**2+
     $     16*d0*p1p2+32*d11*p1p2+16*d12*p1p2+32*d13*p1p2+
     $     16*d21*p1p2+32*d213*p1p2+16*d23*p1p2+16*d13*p1p3-
     $     16*d0*p1p4-32*d11*p1p4-16*d12*p1p4-32*d13*p1p4-
     $     16*d21*p1p4-32*d213*p1p4-16*d23*p1p4-16*d13*p2p3-
     $     16*d213*p2p3-16*d23*p2p3+32*d12*p2p4+
     $     32*d212*p2p4+32*d223*p2p4+16*d13*p3p4+
     $     16*d213*p3p4+16*d23*p3p4)
      do i=1,68
         kmv(3,i)=(cf-cg/2d0)*kmv(3,i)
         kmv(4,i)=(cf-cg/2d0)*kmv(4,i)
         kmv(5,i)=(cf-cg/2d0)*kmv(5,i)
         kmv(6,i)=(cf-cg/2d0)*kmv(6,i)
      enddo
c B9(1)
      call ddfunc(mt**2,mt**2+s-2d0*p1pq,mt**2-2d0*p1p3,mt**2-p1pq,
     $     mt**2-p1p3,mt**2-p1p3-p1pq+p3p4,
     $      0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv(7,1)=(-8*c0*mt**2+32*d20*mt**2-16*d301*mt**2-16*d302*mt**2-
     $     16*d303*mt**2+16*d21*mt**4+32*d212*mt**4+32*d213*mt**4+
     $     16*d22*mt**4+32*d223*mt**4+16*d23*mt**4-8*c11*p1p3-
     $     8*c12*p1p3-16*d20*p1p3+16*d302*p1p3+16*d303*p1p3-
     $     16*d11*mt**2*p1p3-16*d12*mt**2*p1p3-16*d13*mt**2*p1p3-
     $     16*d21*mt**2*p1p3-64*d212*mt**2*p1p3-
     $     64*d213*mt**2*p1p3-48*d22*mt**2*p1p3-
     $     96*d223*mt**2*p1p3-48*d23*mt**2*p1p3+16*d12*p1p3**2+
     $     16*d13*p1p3**2+16*d212*p1p3**2+16*d213*p1p3**2+
     $     32*d22*p1p3**2+64*d223*p1p3**2+32*d23*p1p3**2-
     $     8*c0*p1p4-8*c11*p1p4+16*d20*p1p4+16*d302*p1p4-
     $     16*d11*mt**2*p1p4-16*d12*mt**2*p1p4-16*d13*mt**2*p1p4-
     $     32*d212*mt**2*p1p4-32*d22*mt**2*p1p4-
     $     32*d223*mt**2*p1p4+32*d12*p1p3*p1p4+
     $     16*d13*p1p3*p1p4+16*d212*p1p3*p1p4+
     $     48*d22*p1p3*p1p4+48*d223*p1p3*p1p4+
     $     16*d12*p1p4**2+16*d22*p1p4**2+8*c0*p3p4+
     $     8*c11*p3p4-16*d20*p3p4-16*d302*p3p4+
     $     16*d11*mt**2*p3p4+16*d12*mt**2*p3p4+16*d13*mt**2*p3p4+
     $     32*d212*mt**2*p3p4+32*d22*mt**2*p3p4+
     $     32*d223*mt**2*p3p4-32*d12*p1p3*p3p4-
     $     16*d13*p1p3*p3p4-16*d212*p1p3*p3p4-
     $     48*d22*p1p3*p3p4-48*d223*p1p3*p3p4-
     $     32*d12*p1p4*p3p4-32*d22*p1p4*p3p4+
     $     16*d12*p3p4**2+16*d22*p3p4**2)
      kmv(7,2)=(-4*c0+4*c12+16*d20-8*d303+8*d213*mt**2+8*d223*mt**2+
     $     8*d23*mt**2+8*d12*p1p3-8*d213*p1p3-16*d223*p1p3-
     $     16*d23*p1p3+8*d12*p1p4-8*d223*p1p4-8*d12*p3p4+
     $     8*d223*p3p4)
      kmv(7,3)=(-4*c0*mt+16*d20*mt-8*d301*mt-8*d302*mt-8*d303*mt+
     $     8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+
     $     16*d223*mt**3+8*d23*mt**3-8*d21*mt*p1p3-24*d212*mt*p1p3-
     $     24*d213*mt*p1p3-16*d22*mt*p1p3-32*d223*mt*p1p3-
     $     16*d23*mt*p1p3-8*d212*mt*p1p4-8*d22*mt*p1p4-
     $     8*d223*mt*p1p4+8*d212*mt*p3p4+8*d22*mt*p3p4+
     $     8*d223*mt*p3p4)
      kmv(7,4)=(-4*c0*mt+16*d20*mt-8*d301*mt-8*d302*mt-8*d303*mt+
     $     8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+
     $     16*d223*mt**3+8*d23*mt**3-8*d11*mt*p1p3-8*d12*mt*p1p3-
     $     8*d13*mt*p1p3-8*d21*mt*p1p3-24*d212*mt*p1p3-
     $     24*d213*mt*p1p3-16*d22*mt*p1p3-32*d223*mt*p1p3-
     $     16*d23*mt*p1p3-8*d11*mt*p1p4-8*d12*mt*p1p4-
     $     8*d13*mt*p1p4-8*d212*mt*p1p4-8*d22*mt*p1p4-
     $     8*d223*mt*p1p4+8*d11*mt*p3p4+8*d12*mt*p3p4+
     $     8*d13*mt*p3p4+8*d212*mt*p3p4+8*d22*mt*p3p4+
     $     8*d223*mt*p3p4)
      kmv(7,5)=(-8*d20*mt**2-8*d11*mt**4-8*d12*mt**4-8*d13*mt**4-
     $     8*d21*mt**4-16*d212*mt**4-16*d213*mt**4-8*d22*mt**4-
     $     16*d223*mt**4-8*d23*mt**4+4*c11*p1p3+4*c12*p1p3+
     $     16*d20*p1p3+8*d0*mt**2*p1p3+16*d11*mt**2*p1p3+
     $     24*d12*mt**2*p1p3+24*d13*mt**2*p1p3+8*d21*mt**2*p1p3+
     $     32*d212*mt**2*p1p3+32*d213*mt**2*p1p3+
     $     24*d22*mt**2*p1p3+48*d223*mt**2*p1p3+24*d23*mt**2*p1p3-
     $     8*d12*p1p3**2-8*d13*p1p3**2-8*d212*p1p3**2-
     $     8*d213*p1p3**2-16*d22*p1p3**2-32*d223*p1p3**2-
     $     16*d23*p1p3**2+4*c0*p1p4+4*c11*p1p4-8*d20*p1p4+
     $     8*d11*mt**2*p1p4+16*d12*mt**2*p1p4+8*d13*mt**2*p1p4+
     $     16*d212*mt**2*p1p4+16*d22*mt**2*p1p4+
     $     16*d223*mt**2*p1p4-16*d12*p1p3*p1p4-
     $     8*d13*p1p3*p1p4-8*d212*p1p3*p1p4-
     $     24*d22*p1p3*p1p4-24*d223*p1p3*p1p4-
     $     8*d12*p1p4**2-8*d22*p1p4**2-4*c0*p3p4-4*c11*p3p4+
     $     8*d20*p3p4-8*d12*mt**2*p3p4-16*d212*mt**2*p3p4-
     $     16*d22*mt**2*p3p4-16*d223*mt**2*p3p4-
     $     8*d0*p1p3*p3p4-8*d11*p1p3*p3p4+
     $     8*d12*p1p3*p3p4+8*d212*p1p3*p3p4+
     $     24*d22*p1p3*p3p4+24*d223*p1p3*p3p4+
     $     16*d12*p1p4*p3p4+16*d22*p1p4*p3p4-
     $     8*d12*p3p4**2-8*d22*p3p4**2)
      kmv(7,6)=(2*c0-2*c12-12*d20-4*d0*mt**2-8*d11*mt**2-8*d12*mt**2-
     $     8*d13*mt**2-4*d213*mt**2-4*d223*mt**2-4*d23*mt**2+
     $     4*d0*p1p3+4*d11*p1p3+4*d13*p1p3+4*d213*p1p3+
     $     8*d223*p1p3+8*d23*p1p3+4*d0*p1p4+4*d11*p1p4+
     $     4*d13*p1p4+4*d223*p1p4+4*d12*p3p4-4*d223*p3p4)
      kmv(7,7)=(4*d20*mt+4*d11*mt**3+4*d12*mt**3+4*d13*mt**3+
     $     4*d21*mt**3+
     $     8*d212*mt**3+8*d213*mt**3+4*d22*mt**3+8*d223*mt**3+
     $     4*d23*mt**3+
     $     4*d11*mt*p1p3-4*d21*mt*p1p3-12*d212*mt*p1p3-
     $     12*d213*mt*p1p3-8*d22*mt*p1p3-16*d223*mt*p1p3-
     $     8*d23*mt*p1p3-4*d12*mt*p1p4-4*d212*mt*p1p4-
     $     4*d22*mt*p1p4-4*d223*mt*p1p4-4*d11*mt*p3p4-
     $     4*d13*mt*p3p4+4*d212*mt*p3p4+4*d22*mt*p3p4+
     $     4*d223*mt*p3p4)
      kmv(7,8)=(4*d20*mt+4*d11*mt**3+4*d12*mt**3+4*d13*mt**3+
     $     4*d21*mt**3+
     $     8*d212*mt**3+8*d213*mt**3+4*d22*mt**3+8*d223*mt**3+
     $     4*d23*mt**3-
     $     4*d0*mt*p1p3-8*d11*mt*p1p3-12*d12*mt*p1p3-
     $     12*d13*mt*p1p3-4*d21*mt*p1p3-12*d212*mt*p1p3-
     $     12*d213*mt*p1p3-8*d22*mt*p1p3-16*d223*mt*p1p3-
     $     8*d23*mt*p1p3-4*d0*mt*p1p4-12*d11*mt*p1p4-
     $     16*d12*mt*p1p4-12*d13*mt*p1p4-4*d212*mt*p1p4-
     $     4*d22*mt*p1p4-4*d223*mt*p1p4+4*d0*mt*p3p4+
     $     8*d11*mt*p3p4+12*d12*mt*p3p4+8*d13*mt*p3p4+
     $     4*d212*mt*p3p4+4*d22*mt*p3p4+4*d223*mt*p3p4)
      kmv(7,11)=(-4*d11*mt-4*d12*mt-4*d13*mt+4*d21*mt+8*d212*mt+
     $     8*d213*mt+4*d22*mt+8*d223*mt+4*d23*mt)
      kmv(7,14)=(4*d11*mt+4*d12*mt+4*d13*mt-4*d21*mt-8*d212*mt-
     $     8*d213*mt-4*d22*mt-8*d223*mt-4*d23*mt)
      kmv(7,17)=(-4*c0-4*c11+8*d20-8*d301-8*d302-8*d303+8*d0*mt**2+
     $     16*d11*mt**2+16*d12*mt**2+16*d13*mt**2+16*d21*mt**2+
     $     24*d212*mt**2+32*d213*mt**2+8*d22*mt**2+24*d223*mt**2+
     $     16*d23*mt**2-8*d0*p1p3-16*d11*p1p3-16*d12*p1p3-
     $     24*d13*p1p3-8*d21*p1p3-24*d212*p1p3-32*d213*p1p3-
     $     8*d22*p1p3-32*d223*p1p3-24*d23*p1p3-8*d0*p1p4-
     $     16*d11*p1p4-16*d12*p1p4-16*d13*p1p4-8*d21*p1p4-
     $     24*d212*p1p4-16*d213*p1p4-8*d22*p1p4-
     $     24*d223*p1p4-8*d23*p1p4+8*d12*p3p4+8*d13*p3p4+
     $     16*d212*p3p4+8*d213*p3p4+8*d22*p3p4+24*d223*p3p4+
     $     8*d23*p3p4)
      kmv(7,20)=(-4*c0-4*c11+16*d20+8*d301+8*d302+8*d303-8*d11*mt**2-
     $     8*d12*mt**2-8*d13*mt**2-8*d212*mt**2-8*d22*mt**2-
     $     8*d223*mt**2+
     $     8*d12*p1p3+8*d13*p1p3+8*d22*p1p3+8*d223*p1p3+
     $     8*d12*p1p4+8*d22*p1p4+8*d212*p3p4+8*d223*p3p4)
      kmv(7,23)=(-4*c11-4*c12-16*d20-8*d301-8*d302-8*d303+
     $     8*d11*mt**2+8*d12*mt**2+8*d13*mt**2+8*d21*mt**2+
     $     8*d212*mt**2+
     $     8*d213*mt**2-8*d0*p1p3-16*d11*p1p3-16*d12*p1p3-
     $     16*d13*p1p3-8*d21*p1p3-16*d212*p1p3-16*d213*p1p3-
     $     8*d0*p1p4-16*d11*p1p4-16*d12*p1p4-8*d13*p1p4-
     $     8*d21*p1p4-16*d212*p1p4-8*d213*p1p4+8*d0*p3p4+
     $     8*d11*p3p4+16*d12*p3p4+8*d13*p3p4+8*d212*p3p4)
      kmv(7,26)=(-4*c11-4*c12-8*d20+8*d301+8*d302+8*d303-8*d0*mt**2-
     $     16*d11*mt**2-16*d12*mt**2-16*d13*mt**2-8*d21*mt**2-
     $     24*d212*mt**2-24*d213*mt**2-16*d22*mt**2-32*d223*mt**2-
     $     16*d23*mt**2+8*d12*p1p3+8*d13*p1p3+8*d212*p1p3+
     $     8*d213*p1p3+16*d22*p1p3+32*d223*p1p3+16*d23*p1p3+
     $     8*d12*p1p4+8*d212*p1p4+16*d22*p1p4+16*d223*p1p4+
     $     8*d0*p3p4+8*d11*p3p4+8*d12*p3p4+8*d13*p3p4-
     $     8*d22*p3p4-8*d223*p3p4)
      kmv(7,29)=(-8*d20*mt-8*d11*mt**3-8*d12*mt**3-8*d13*mt**3-
     $     8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3-
     $     16*d223*mt**3-8*d23*mt**3+8*d0*mt*p1p3+16*d11*mt*p1p3+
     $     24*d12*mt*p1p3+24*d13*mt*p1p3+8*d21*mt*p1p3+
     $     24*d212*mt*p1p3+24*d213*mt*p1p3+16*d22*mt*p1p3+
     $     32*d223*mt*p1p3+16*d23*mt*p1p3+8*d0*mt*p1p4+
     $     16*d11*mt*p1p4+24*d12*mt*p1p4+16*d13*mt*p1p4+
     $     8*d21*mt*p1p4+24*d212*mt*p1p4+16*d213*mt*p1p4+
     $     16*d22*mt*p1p4+24*d223*mt*p1p4+8*d23*mt*p1p4-
     $     8*d0*mt*p3p4-8*d11*mt*p3p4-16*d12*mt*p3p4-
     $     8*d13*mt*p3p4-8*d21*mt*p3p4-24*d212*mt*p3p4-
     $     16*d213*mt*p3p4-16*d22*mt*p3p4-24*d223*mt*p3p4-
     $     8*d23*mt*p3p4)
      kmv(7,32)=(8*d20*mt+8*d11*mt**3+8*d12*mt**3+8*d13*mt**3+
     $     8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+
     $     16*d223*mt**3+8*d23*mt**3-8*d12*mt*p1p3-8*d13*mt*p1p3-
     $     8*d212*mt*p1p3-8*d213*mt*p1p3-8*d22*mt*p1p3-
     $     16*d223*mt*p1p3-8*d23*mt*p1p3-8*d12*mt*p1p4-
     $     8*d212*mt*p1p4-8*d22*mt*p1p4-8*d223*mt*p1p4-
     $     8*d11*mt*p3p4-8*d13*mt*p3p4+8*d212*mt*p3p4+
     $     8*d22*mt*p3p4+8*d223*mt*p3p4)
      kmv(7,41)=(-16*d13-24*d213-24*d223-24*d23-16*d3123-8*d313-
     $     8*d323-8*d33-16*d331-16*d332)
      kmv(7,50)=(-8*d11*mt-8*d12*mt-8*d13*mt-16*d21*mt-32*d212*mt-
     $     32*d213*mt-16*d22*mt-32*d223*mt-16*d23*mt-8*d31*mt-
     $     24*d312*mt-48*d3123*mt-24*d313*mt-8*d32*mt-24*d321*mt-
     $     24*d323*mt-8*d33*mt-24*d331*mt-24*d332*mt)
      kmv(7,59)=(-8*d11*mt-8*d12*mt-8*d13*mt-16*d21*mt-32*d212*mt-
     $     32*d213*mt-16*d22*mt-32*d223*mt-16*d23*mt-8*d31*mt-
     $     24*d312*mt-48*d3123*mt-24*d313*mt-8*d32*mt-24*d321*mt-
     $     24*d323*mt-8*d33*mt-24*d331*mt-24*d332*mt)
      kmv(7,68)=(-16*d20-32*d301-32*d302-32*d303+16*d0*mt**2+
     $     32*d11*mt**2+32*d12*mt**2+32*d13*mt**2-16*d31*mt**2-
     $     48*d312*mt**2-96*d3123*mt**2-48*d313*mt**2-16*d32*mt**2-
     $     48*d321*mt**2-48*d323*mt**2-16*d33*mt**2-48*d331*mt**2-
     $     48*d332*mt**2+16*d212*p1p3+16*d213*p1p3+16*d22*p1p3+
     $     32*d223*p1p3+16*d23*p1p3+16*d312*p1p3+
     $     64*d3123*p1p3+16*d313*p1p3+16*d32*p1p3+
     $     32*d321*p1p3+48*d323*p1p3+16*d33*p1p3+
     $     32*d331*p1p3+48*d332*p1p3+16*d212*p1p4+
     $     16*d22*p1p4+16*d223*p1p4+16*d312*p1p4+
     $     32*d3123*p1p4+16*d32*p1p4+32*d321*p1p4+
     $     32*d323*p1p4+16*d332*p1p4-16*d0*p3p4-32*d11*p3p4-
     $     32*d12*p3p4-16*d13*p3p4-16*d21*p3p4-48*d212*p3p4-
     $     16*d213*p3p4-32*d22*p3p4-32*d223*p3p4-
     $     16*d312*p3p4-32*d3123*p3p4-16*d32*p3p4-
     $     32*d321*p3p4-32*d323*p3p4-16*d332*p3p4)
c B9(2)
      call ddfunc(mt**2,mt**2-2d0*p2p4,mt**2+s-2d0*p2pq,mt**2-p2p4,
     $     mt**2-p2pq,mt**2-p2p4-p2pq+p3p4,
     $      0d0,mt,mt,mt,d1,d2,d3,c1,c2)
      c0=c1(0,1)
      c11=c1(1,1)
      c12=c1(2,1)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      d301=d3(0,1)
      d302=d3(0,2)
      d303=d3(0,3)
      d31=d3(1,1)
      d32=d3(2,2)
      d33=d3(3,3)
      d312=d3(1,2)
      d313=d3(1,3)
      d321=d3(2,1)
      d323=d3(2,3)
      d331=d3(3,1)
      d332=d3(3,2)
      d3123=d3(0,0)
      kmv(8,1)=(-8*c0*mt**2+32*d20*mt**2-16*d301*mt**2-16*d302*mt**2-
     $     16*d303*mt**2+16*d21*mt**4+32*d212*mt**4+32*d213*mt**4+
     $     16*d22*mt**4+32*d223*mt**4+16*d23*mt**4-8*c0*p2p3-
     $     8*c12*p2p3+16*d20*p2p3+16*d303*p2p3-
     $     16*d11*mt**2*p2p3-16*d12*mt**2*p2p3-16*d13*mt**2*p2p3-
     $     32*d213*mt**2*p2p3-32*d223*mt**2*p2p3-
     $     32*d23*mt**2*p2p3+16*d13*p2p3**2+16*d23*p2p3**2-
     $     8*c11*p2p4-8*c12*p2p4-16*d20*p2p4+16*d302*p2p4+
     $     16*d303*p2p4-16*d11*mt**2*p2p4-16*d12*mt**2*p2p4-
     $     16*d13*mt**2*p2p4-16*d21*mt**2*p2p4-64*d212*mt**2*p2p4-
     $     64*d213*mt**2*p2p4-48*d22*mt**2*p2p4-
     $     96*d223*mt**2*p2p4-48*d23*mt**2*p2p4+
     $     16*d12*p2p3*p2p4+32*d13*p2p3*p2p4+
     $     16*d213*p2p3*p2p4+48*d223*p2p3*p2p4+
     $     48*d23*p2p3*p2p4+16*d12*p2p4**2+16*d13*p2p4**2+
     $     16*d212*p2p4**2+16*d213*p2p4**2+32*d22*p2p4**2+
     $     64*d223*p2p4**2+32*d23*p2p4**2+8*c0*p3p4+
     $     8*c12*p3p4-16*d20*p3p4-16*d303*p3p4+
     $     16*d11*mt**2*p3p4+16*d12*mt**2*p3p4+16*d13*mt**2*p3p4+
     $     32*d213*mt**2*p3p4+32*d223*mt**2*p3p4+
     $     32*d23*mt**2*p3p4-32*d13*p2p3*p3p4-
     $     32*d23*p2p3*p3p4-16*d12*p2p4*p3p4-
     $     32*d13*p2p4*p3p4-16*d213*p2p4*p3p4-
     $     48*d223*p2p4*p3p4-48*d23*p2p4*p3p4+
     $     16*d13*p3p4**2+16*d23*p3p4**2)
      kmv(8,2)=(-4*c0+4*c11+16*d20-8*d302+8*d212*mt**2+8*d22*mt**2+
     $     8*d223*mt**2+8*d13*p2p3-8*d223*p2p3+8*d13*p2p4-
     $     8*d212*p2p4-16*d22*p2p4-16*d223*p2p4-8*d13*p3p4+
     $     8*d223*p3p4)
      kmv(8,3)=(4*c0*mt-16*d20*mt+8*d301*mt+8*d302*mt+8*d303*mt-
     $     8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3-
     $     16*d223*mt**3-8*d23*mt**3+8*d11*mt*p2p3+8*d12*mt*p2p3+
     $     8*d13*mt*p2p3+8*d213*mt*p2p3+8*d223*mt*p2p3+
     $     8*d23*mt*p2p3+8*d11*mt*p2p4+8*d12*mt*p2p4+
     $     8*d13*mt*p2p4+8*d21*mt*p2p4+24*d212*mt*p2p4+
     $     24*d213*mt*p2p4+16*d22*mt*p2p4+32*d223*mt*p2p4+
     $     16*d23*mt*p2p4-8*d11*mt*p3p4-8*d12*mt*p3p4-
     $     8*d13*mt*p3p4-8*d213*mt*p3p4-8*d223*mt*p3p4-
     $     8*d23*mt*p3p4)
      kmv(8,4)=(4*c0*mt-16*d20*mt+8*d301*mt+8*d302*mt+8*d303*mt-
     $     8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3-
     $     16*d223*mt**3-8*d23*mt**3+8*d213*mt*p2p3+8*d223*mt*p2p3+
     $     8*d23*mt*p2p3+8*d21*mt*p2p4+24*d212*mt*p2p4+
     $     24*d213*mt*p2p4+16*d22*mt*p2p4+32*d223*mt*p2p4+
     $     16*d23*mt*p2p4-8*d213*mt*p3p4-8*d223*mt*p3p4-
     $     8*d23*mt*p3p4)
      kmv(8,5)=(-8*d20*mt**2-8*d11*mt**4-8*d12*mt**4-8*d13*mt**4-
     $     8*d21*mt**4-16*d212*mt**4-16*d213*mt**4-8*d22*mt**4-
     $     16*d223*mt**4-8*d23*mt**4+4*c0*p2p3+4*c12*p2p3-
     $     8*d20*p2p3+8*d11*mt**2*p2p3+8*d12*mt**2*p2p3+
     $     16*d13*mt**2*p2p3+16*d213*mt**2*p2p3+
     $     16*d223*mt**2*p2p3+16*d23*mt**2*p2p3-8*d13*p2p3**2-
     $     8*d23*p2p3**2+4*c11*p2p4+4*c12*p2p4+16*d20*p2p4+
     $     8*d0*mt**2*p2p4+16*d11*mt**2*p2p4+24*d12*mt**2*p2p4+
     $     24*d13*mt**2*p2p4+8*d21*mt**2*p2p4+32*d212*mt**2*p2p4+
     $     32*d213*mt**2*p2p4+24*d22*mt**2*p2p4+
     $     48*d223*mt**2*p2p4+24*d23*mt**2*p2p4-
     $     8*d12*p2p3*p2p4-16*d13*p2p3*p2p4-
     $     8*d213*p2p3*p2p4-24*d223*p2p3*p2p4-
     $     24*d23*p2p3*p2p4-8*d12*p2p4**2-8*d13*p2p4**2-
     $     8*d212*p2p4**2-8*d213*p2p4**2-16*d22*p2p4**2-
     $     32*d223*p2p4**2-16*d23*p2p4**2-4*c0*p3p4-
     $     4*c12*p3p4+8*d20*p3p4-8*d13*mt**2*p3p4-
     $     16*d213*mt**2*p3p4-16*d223*mt**2*p3p4-
     $     16*d23*mt**2*p3p4+16*d13*p2p3*p3p4+
     $     16*d23*p2p3*p3p4-8*d0*p2p4*p3p4-
     $     8*d11*p2p4*p3p4+8*d13*p2p4*p3p4+
     $     8*d213*p2p4*p3p4+24*d223*p2p4*p3p4+
     $     24*d23*p2p4*p3p4-8*d13*p3p4**2-8*d23*p3p4**2)
      kmv(8,6)=(2*c0-2*c11-12*d20-4*d0*mt**2-8*d11*mt**2-8*d12*mt**2-
     $     8*d13*mt**2-4*d212*mt**2-4*d22*mt**2-4*d223*mt**2+
     $     4*d0*p2p3+4*d11*p2p3+4*d12*p2p3+4*d223*p2p3+
     $     4*d0*p2p4+4*d11*p2p4+4*d12*p2p4+4*d212*p2p4+
     $     8*d22*p2p4+8*d223*p2p4+4*d13*p3p4-4*d223*p3p4)
      kmv(8,7)=(-4*d20*mt-4*d11*mt**3-4*d12*mt**3-4*d13*mt**3-
     $     4*d21*mt**3-8*d212*mt**3-8*d213*mt**3-4*d22*mt**3-
     $     8*d223*mt**3-
     $     4*d23*mt**3+4*d0*mt*p2p3+12*d11*mt*p2p3+
     $     12*d12*mt*p2p3+16*d13*mt*p2p3+4*d213*mt*p2p3+
     $     4*d223*mt*p2p3+4*d23*mt*p2p3+4*d0*mt*p2p4+
     $     8*d11*mt*p2p4+12*d12*mt*p2p4+12*d13*mt*p2p4+
     $     4*d21*mt*p2p4+12*d212*mt*p2p4+12*d213*mt*p2p4+
     $     8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4-
     $     4*d0*mt*p3p4-8*d11*mt*p3p4-8*d12*mt*p3p4-
     $     12*d13*mt*p3p4-4*d213*mt*p3p4-4*d223*mt*p3p4-
     $     4*d23*mt*p3p4)
      kmv(8,8)=(-4*d20*mt-4*d11*mt**3-4*d12*mt**3-4*d13*mt**3-
     $     4*d21*mt**3-8*d212*mt**3-8*d213*mt**3-4*d22*mt**3-
     $     8*d223*mt**3-
     $     4*d23*mt**3+4*d13*mt*p2p3+4*d213*mt*p2p3+
     $     4*d223*mt*p2p3+4*d23*mt*p2p3-4*d11*mt*p2p4+
     $     4*d21*mt*p2p4+12*d212*mt*p2p4+12*d213*mt*p2p4+
     $     8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4+
     $     4*d11*mt*p3p4+4*d12*mt*p3p4-4*d213*mt*p3p4-
     $     4*d223*mt*p3p4-4*d23*mt*p3p4)
      kmv(8,10)=(-4*d11*mt-4*d12*mt-4*d13*mt+4*d21*mt+8*d212*mt+
     $     8*d213*mt+4*d22*mt+8*d223*mt+4*d23*mt)
      kmv(8,13)=(4*d11*mt+4*d12*mt+4*d13*mt-4*d21*mt-8*d212*mt-
     $     8*d213*mt-4*d22*mt-8*d223*mt-4*d23*mt)
      kmv(8,16)=(-4*c11-4*c12-8*d20+8*d301+8*d302+8*d303-8*d0*mt**2-
     $     16*d11*mt**2-16*d12*mt**2-16*d13*mt**2-8*d21*mt**2-
     $     24*d212*mt**2-24*d213*mt**2-16*d22*mt**2-32*d223*mt**2-
     $     16*d23*mt**2+8*d13*p2p3+8*d213*p2p3+16*d223*p2p3+
     $     16*d23*p2p3+8*d12*p2p4+8*d13*p2p4+8*d212*p2p4+
     $     8*d213*p2p4+16*d22*p2p4+32*d223*p2p4+16*d23*p2p4+
     $     8*d0*p3p4+8*d11*p3p4+8*d12*p3p4+8*d13*p3p4-
     $     8*d223*p3p4-8*d23*p3p4)
      kmv(8,19)=(-4*c11-4*c12-16*d20-8*d301-8*d302-8*d303+
     $     8*d11*mt**2+8*d12*mt**2+8*d13*mt**2+8*d21*mt**2+
     $     8*d212*mt**2+
     $     8*d213*mt**2-8*d0*p2p3-16*d11*p2p3-8*d12*p2p3-
     $     16*d13*p2p3-8*d21*p2p3-8*d212*p2p3-16*d213*p2p3-
     $     8*d0*p2p4-16*d11*p2p4-16*d12*p2p4-16*d13*p2p4-
     $     8*d21*p2p4-16*d212*p2p4-16*d213*p2p4+8*d0*p3p4+
     $     8*d11*p3p4+8*d12*p3p4+16*d13*p3p4+8*d213*p3p4)
      kmv(8,22)=(-4*c0-4*c12+16*d20+8*d301+8*d302+8*d303-8*d11*mt**2-
     $     8*d12*mt**2-8*d13*mt**2-8*d213*mt**2-8*d223*mt**2-
     $     8*d23*mt**2+
     $     8*d13*p2p3+8*d23*p2p3+8*d12*p2p4+8*d13*p2p4+
     $     8*d223*p2p4+8*d23*p2p4+8*d213*p3p4+8*d223*p3p4)
      kmv(8,25)=(-4*c0-4*c12+8*d20-8*d301-8*d302-8*d303+8*d0*mt**2+
     $     16*d11*mt**2+16*d12*mt**2+16*d13*mt**2+16*d21*mt**2+
     $     32*d212*mt**2+24*d213*mt**2+16*d22*mt**2+24*d223*mt**2+
     $     8*d23*mt**2-8*d0*p2p3-16*d11*p2p3-16*d12*p2p3-
     $     16*d13*p2p3-8*d21*p2p3-16*d212*p2p3-24*d213*p2p3-
     $     8*d22*p2p3-24*d223*p2p3-8*d23*p2p3-8*d0*p2p4-
     $     16*d11*p2p4-24*d12*p2p4-16*d13*p2p4-8*d21*p2p4-
     $     32*d212*p2p4-24*d213*p2p4-24*d22*p2p4-
     $     32*d223*p2p4-8*d23*p2p4+8*d12*p3p4+8*d13*p3p4+
     $     8*d212*p3p4+16*d213*p3p4+8*d22*p3p4+24*d223*p3p4+
     $     8*d23*p3p4)
      kmv(8,28)=(-8*d20*mt-8*d11*mt**3-8*d12*mt**3-8*d13*mt**3-
     $     8*d21*mt**3-16*d212*mt**3-16*d213*mt**3-8*d22*mt**3-
     $     16*d223*mt**3-8*d23*mt**3+8*d13*mt*p2p3+8*d213*mt*p2p3+
     $     8*d223*mt*p2p3+8*d23*mt*p2p3+8*d12*mt*p2p4+
     $     8*d13*mt*p2p4+8*d212*mt*p2p4+8*d213*mt*p2p4+
     $     8*d22*mt*p2p4+16*d223*mt*p2p4+8*d23*mt*p2p4+
     $     8*d11*mt*p3p4+8*d12*mt*p3p4-8*d213*mt*p3p4-
     $     8*d223*mt*p3p4-8*d23*mt*p3p4)
      kmv(8,31)=(8*d20*mt+8*d11*mt**3+8*d12*mt**3+8*d13*mt**3+
     $     8*d21*mt**3+16*d212*mt**3+16*d213*mt**3+8*d22*mt**3+
     $     16*d223*mt**3+8*d23*mt**3-8*d0*mt*p2p3-16*d11*mt*p2p3-
     $     16*d12*mt*p2p3-24*d13*mt*p2p3-8*d21*mt*p2p3-
     $     16*d212*mt*p2p3-24*d213*mt*p2p3-8*d22*mt*p2p3-
     $     24*d223*mt*p2p3-16*d23*mt*p2p3-8*d0*mt*p2p4-
     $     16*d11*mt*p2p4-24*d12*mt*p2p4-24*d13*mt*p2p4-
     $     8*d21*mt*p2p4-24*d212*mt*p2p4-24*d213*mt*p2p4-
     $     16*d22*mt*p2p4-32*d223*mt*p2p4-16*d23*mt*p2p4+
     $     8*d0*mt*p3p4+8*d11*mt*p3p4+8*d12*mt*p3p4+
     $     16*d13*mt*p3p4+8*d21*mt*p3p4+16*d212*mt*p3p4+
     $     24*d213*mt*p3p4+8*d22*mt*p3p4+24*d223*mt*p3p4+
     $     16*d23*mt*p3p4)
      kmv(8,37)=(-16*d12-24*d212-24*d22-24*d223-8*d312-16*d3123-
     $     8*d32-16*d321-16*d323-8*d332)
      kmv(8,46)=(8*d11*mt+8*d12*mt+8*d13*mt+16*d21*mt+32*d212*mt+
     $     32*d213*mt+16*d22*mt+32*d223*mt+16*d23*mt+8*d31*mt+
     $     24*d312*mt+48*d3123*mt+24*d313*mt+8*d32*mt+24*d321*mt+
     $     24*d323*mt+8*d33*mt+24*d331*mt+24*d332*mt)
      kmv(8,55)=(8*d11*mt+8*d12*mt+8*d13*mt+16*d21*mt+32*d212*mt+
     $     32*d213*mt+16*d22*mt+32*d223*mt+16*d23*mt+8*d31*mt+
     $     24*d312*mt+48*d3123*mt+24*d313*mt+8*d32*mt+24*d321*mt+
     $     24*d323*mt+8*d33*mt+24*d331*mt+24*d332*mt)
      kmv(8,64)=(-16*d20-32*d301-32*d302-32*d303+16*d0*mt**2+
     $     32*d11*mt**2+32*d12*mt**2+32*d13*mt**2-16*d31*mt**2-
     $     48*d312*mt**2-96*d3123*mt**2-48*d313*mt**2-16*d32*mt**2-
     $     48*d321*mt**2-48*d323*mt**2-16*d33*mt**2-48*d331*mt**2-
     $     48*d332*mt**2+16*d213*p2p3+16*d223*p2p3+16*d23*p2p3+
     $     32*d3123*p2p3+16*d313*p2p3+16*d323*p2p3+
     $     16*d33*p2p3+32*d331*p2p3+32*d332*p2p3+
     $     16*d212*p2p4+16*d213*p2p4+16*d22*p2p4+
     $     32*d223*p2p4+16*d23*p2p4+16*d312*p2p4+
     $     64*d3123*p2p4+16*d313*p2p4+16*d32*p2p4+
     $     32*d321*p2p4+48*d323*p2p4+16*d33*p2p4+
     $     32*d331*p2p4+48*d332*p2p4-16*d0*p3p4-32*d11*p3p4-
     $     16*d12*p3p4-32*d13*p3p4-16*d21*p3p4-16*d212*p3p4-
     $     48*d213*p3p4-32*d223*p3p4-32*d23*p3p4-
     $     32*d3123*p3p4-16*d313*p3p4-16*d323*p3p4-
     $     16*d33*p3p4-32*d331*p3p4-32*d332*p3p4)
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp2_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j,k
      real*8 mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c P2
      e1(0)=E0_ir(2,mt,mt**2,0d0,0d0,mh**2,mt**2,mt**2-2d0*p1p3,
     $     2d0*p3p4,2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,
     $     mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4,2d0*mt**2+2d0*p1p2,
     $     0d0,mt,mt,mt,mt)
c      write(6,*)'e0',e1(0)
      call eefunc_ir(2,mt,mt**2,mt**2,mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4,
     $     mt**2-2d0*p1p3,-p1p2,mt**2-p1p3-p1p4,mt**2-p1p3,
     $     -p1p2+p2p3+p2p4,-p1p2+p2p3,mt**2-2d0*p1p3-p1p4+p3p4,
     $     0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
 10   continue
      kmv(1)=(-8*d20+4*d0*mt**2-8*d21*mt**2-8*d21*p1p2-
     $     8*d11*p1p3-8*d212*p1p3-8*d213*p1p3-8*d0*p1p4-
     $     8*d11*p1p4-8*d212*p1p4+16*e21*mt**2*p1p4+
     $     32*e213*mt**2*p1p4+32*e214*mt**2*p1p4+
     $     16*e23*mt**2*p1p4+32*e234*mt**2*p1p4+16*e24*mt**2*p1p4-
     $     16*e212*p1p2*p1p4-16*e223*p1p2*p1p4-
     $     16*e224*p1p2*p1p4-16*e213*p1p3*p1p4-
     $     16*e214*p1p3*p1p4-16*e23*p1p3*p1p4-
     $     32*e234*p1p3*p1p4-16*e24*p1p3*p1p4-
     $     16*e213*p1p4**2-16*e23*p1p4**2-16*e234*p1p4**2-
     $     8*d11*p2p3-8*d212*p2p3-8*d213*p2p3+
     $     16*e212*p1p4*p2p3+16*e223*p1p4*p2p3+
     $     16*e224*p1p4*p2p3-8*d212*p2p4-
     $     16*e212*p1p3*p2p4-16*e223*p1p3*p2p4-
     $     16*e224*p1p3*p2p4-16*d12*p3p4-8*d13*p3p4-
     $     8*d22*p3p4-8*d223*p3p4-16*e213*mt**2*p3p4-
     $     16*e214*mt**2*p3p4-16*e23*mt**2*p3p4-
     $     32*e234*mt**2*p3p4-16*e24*mt**2*p3p4+
     $     16*e223*p1p2*p3p4+16*e224*p1p2*p3p4+
     $     16*e23*p1p3*p3p4+32*e234*p1p3*p3p4+
     $     16*e24*p1p3*p3p4+16*e213*p1p4*p3p4+
     $     32*e23*p1p4*p3p4+32*e234*p1p4*p3p4-
     $     16*e223*p2p3*p3p4-16*e224*p2p3*p3p4-
     $     16*e23*p3p4**2-16*e234*p3p4**2)
      kmv(2)=(-4*d0+4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+
     $     8*e23*mt**2+16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-
     $     8*e224*p1p2-8*e213*p1p3-8*e214*p1p3-16*e23*p1p3-
     $     32*e234*p1p3-16*e24*p1p3-8*e213*p1p4-16*e23*p1p4-
     $     16*e234*p1p4+8*e223*p2p3+8*e224*p2p3+8*e223*p2p4+
     $     16*e23*p3p4+16*e234*p3p4)
      kmv(3)=(-4*d0*mt-8*d11*mt+8*e21*mt**3-8*e212*mt**3+16*e213*mt**3+
     $     16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+8*e23*mt**3+
     $     16*e234*mt**3+8*e24*mt**3-8*e212*mt*p1p2+8*e22*mt*p1p2-
     $     8*e223*mt*p1p2-8*e224*mt*p1p2-8*e21*mt*p1p3+
     $     8*e212*mt*p1p3-24*e213*mt*p1p3-24*e214*mt*p1p3+
     $     16*e223*mt*p1p3+16*e224*mt*p1p3-16*e23*mt*p1p3-
     $     32*e234*mt*p1p3-16*e24*mt*p1p3-8*e213*mt*p1p4+
     $     8*e223*mt*p1p4-8*e23*mt*p1p4-8*e234*mt*p1p4+
     $     8*e212*mt*p2p3-8*e22*mt*p2p3+8*e223*mt*p2p3+
     $     8*e224*mt*p2p3+8*e213*mt*p3p4-8*e223*mt*p3p4+
     $     8*e23*mt*p3p4+8*e234*mt*p3p4)
      kmv(4)=(8*e21*mt*p1p4-8*e212*mt*p1p4+16*e213*mt*p1p4+
     $     16*e214*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+
     $     8*e23*mt*p1p4+16*e234*mt*p1p4+8*e24*mt*p1p4-
     $     8*e212*mt*p2p4+8*e22*mt*p2p4-8*e223*mt*p2p4-
     $     8*e224*mt*p2p4-8*e213*mt*p3p4-8*e214*mt*p3p4+
     $     8*e223*mt*p3p4+8*e224*mt*p3p4-8*e23*mt*p3p4-
     $     16*e234*mt*p3p4-8*e24*mt*p3p4)
      kmv(5)=(8*e11*mt**2*p1p2+8*e13*mt**2*p1p2+
     $     8*e14*mt**2*p1p2+8*e21*mt**2*p1p2+8*e212*mt**2*p1p2+
     $     16*e213*mt**2*p1p2+16*e214*mt**2*p1p2+
     $     8*e223*mt**2*p1p2+8*e224*mt**2*p1p2+8*e23*mt**2*p1p2+
     $     16*e234*mt**2*p1p2+8*e24*mt**2*p1p2-8*e12*p1p2**2-
     $     8*e212*p1p2**2-8*e22*p1p2**2-8*e223*p1p2**2-
     $     8*e224*p1p2**2+4*d12*p1p3+4*d13*p1p3+
     $     8*e213*mt**2*p1p3+8*e214*mt**2*p1p3+8*e23*mt**2*p1p3+
     $     16*e234*mt**2*p1p3+8*e24*mt**2*p1p3-8*e0*p1p2*p1p3-
     $     16*e11*p1p2*p1p3-8*e12*p1p2*p1p3-
     $     24*e13*p1p2*p1p3-24*e14*p1p2*p1p3-
     $     8*e21*p1p2*p1p3-8*e212*p1p2*p1p3-
     $     24*e213*p1p2*p1p3-24*e214*p1p2*p1p3-
     $     24*e223*p1p2*p1p3-24*e224*p1p2*p1p3-
     $     16*e23*p1p2*p1p3-32*e234*p1p2*p1p3-
     $     16*e24*p1p2*p1p3-8*e13*p1p3**2-8*e14*p1p3**2-
     $     8*e213*p1p3**2-8*e214*p1p3**2-16*e23*p1p3**2-
     $     32*e234*p1p3**2-16*e24*p1p3**2+4*d0*p1p4+
     $     4*d11*p1p4+4*d12*p1p4-8*e21*mt**2*p1p4-
     $     8*e213*mt**2*p1p4-16*e214*mt**2*p1p4-8*e234*mt**2*p1p4-
     $     8*e24*mt**2*p1p4-8*e13*p1p2*p1p4+
     $     8*e212*p1p2*p1p4-8*e213*p1p2*p1p4-
     $     8*e223*p1p2*p1p4+8*e224*p1p2*p1p4-
     $     8*e23*p1p2*p1p4-8*e234*p1p2*p1p4-
     $     8*e13*p1p3*p1p4+8*e214*p1p3*p1p4-
     $     16*e23*p1p3*p1p4-8*e234*p1p3*p1p4+
     $     8*e24*p1p3*p1p4+8*e213*p1p4**2+8*e234*p1p4**2-
     $     4*d12*p2p3-4*d13*p2p3-8*e213*mt**2*p2p3-
     $     8*e214*mt**2*p2p3-8*e23*mt**2*p2p3-16*e234*mt**2*p2p3-
     $     8*e24*mt**2*p2p3+8*e12*p1p2*p2p3+
     $     8*e212*p1p2*p2p3+8*e22*p1p2*p2p3+
     $     16*e223*p1p2*p2p3+16*e224*p1p2*p2p3+
     $     8*e13*p1p3*p2p3+8*e14*p1p3*p2p3+
     $     8*e213*p1p3*p2p3+8*e214*p1p3*p2p3+
     $     8*e223*p1p3*p2p3+8*e224*p1p3*p2p3+
     $     16*e23*p1p3*p2p3+32*e234*p1p3*p2p3+
     $     16*e24*p1p3*p2p3-16*e212*p1p4*p2p3-
     $     8*e223*p1p4*p2p3-16*e224*p1p4*p2p3+
     $     8*e23*p1p4*p2p3+8*e234*p1p4*p2p3-
     $     8*e223*p2p3**2-8*e224*p2p3**2-4*d0*p2p4-
     $     4*d11*p2p4-4*d12*p2p4-8*e11*mt**2*p2p4-
     $     8*e13*mt**2*p2p4-8*e14*mt**2*p2p4-8*e212*mt**2*p2p4-
     $     8*e213*mt**2*p2p4-8*e223*mt**2*p2p4-8*e224*mt**2*p2p4-
     $     8*e23*mt**2*p2p4-8*e234*mt**2*p2p4+8*e12*p1p2*p2p4+
     $     8*e22*p1p2*p2p4+8*e223*p1p2*p2p4+
     $     16*e13*p1p3*p2p4+8*e14*p1p3*p2p4+
     $     16*e212*p1p3*p2p4+8*e213*p1p3*p2p4+
     $     24*e223*p1p3*p2p4+24*e224*p1p3*p2p4+
     $     16*e23*p1p3*p2p4+16*e234*p1p3*p2p4+
     $     8*e13*p1p4*p2p4+8*e223*p1p4*p2p4+
     $     8*e23*p1p4*p2p4-8*e223*p2p3*p2p4-4*d0*p3p4+
     $     4*d12*p3p4+4*d13*p3p4+8*e213*mt**2*p3p4+
     $     8*e214*mt**2*p3p4+8*e23*mt**2*p3p4+16*e234*mt**2*p3p4+
     $     8*e24*mt**2*p3p4+8*e13*p1p2*p3p4+
     $     8*e213*p1p2*p3p4-8*e224*p1p2*p3p4+
     $     8*e23*p1p2*p3p4+8*e234*p1p2*p3p4+
     $     8*e13*p1p3*p3p4+8*e14*p1p3*p3p4-
     $     8*e234*p1p3*p3p4-8*e24*p1p3*p3p4-
     $     16*e213*p1p4*p3p4-16*e23*p1p4*p3p4-
     $     24*e234*p1p4*p3p4+16*e223*p2p3*p3p4+
     $     16*e224*p2p3*p3p4-8*e23*p2p3*p3p4-
     $     8*e234*p2p3*p3p4-8*e13*p2p4*p3p4-
     $     8*e23*p2p4*p3p4+16*e23*p3p4**2+16*e234*p3p4**2)
      kmv(6)=(4*d0-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+
     $     4*e12*p1p2+4*e13*p1p2+4*e14*p1p2+8*e223*p1p2+
     $     8*e224*p1p2+8*e213*p1p3+8*e214*p1p3+16*e23*p1p3+
     $     32*e234*p1p3+16*e24*p1p3+8*e213*p1p4+16*e23*p1p4+
     $     16*e234*p1p4-8*e223*p2p3-8*e224*p2p3-8*e223*p2p4-
     $     16*e23*p3p4-16*e234*p3p4)
      kmv(7)=(-6*d0*mt-8*d11*mt-4*d12*mt-4*e11*mt**3-4*e13*mt**3-
     $     4*e14*mt**3+8*e21*mt**3-8*e212*mt**3+8*e213*mt**3+
     $     16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+8*e234*mt**3+
     $     8*e24*mt**3+4*e12*mt*p1p2-8*e212*mt*p1p2+
     $     8*e22*mt*p1p2-8*e224*mt*p1p2-4*e12*mt*p1p3+
     $     12*e13*mt*p1p3+4*e14*mt*p1p3-8*e21*mt*p1p3+
     $     8*e212*mt*p1p3-16*e213*mt*p1p3-24*e214*mt*p1p3+
     $     16*e223*mt*p1p3+16*e224*mt*p1p3-16*e234*mt*p1p3-
     $     16*e24*mt*p1p3+4*e13*mt*p1p4-8*e213*mt*p1p4+
     $     8*e223*mt*p1p4-8*e234*mt*p1p4-4*e11*mt*p2p3-
     $     4*e13*mt*p2p3-4*e14*mt*p2p3+8*e212*mt*p2p3-
     $     8*e22*mt*p2p3+8*e224*mt*p2p3-4*e13*mt*p3p4+
     $     8*e213*mt*p3p4-8*e223*mt*p3p4+8*e234*mt*p3p4)
      kmv(8)=(-4*d12*mt-4*d13*mt-8*e213*mt**3-8*e214*mt**3-8*e23*mt**3-
     $     16*e234*mt**3-8*e24*mt**3+8*e223*mt*p1p2+8*e224*mt*p1p2+
     $     8*e13*mt*p1p3+8*e14*mt*p1p3+8*e213*mt*p1p3+
     $     8*e214*mt*p1p3+16*e23*mt*p1p3+32*e234*mt*p1p3+
     $     16*e24*mt*p1p3+4*e12*mt*p1p4+8*e21*mt*p1p4-
     $     8*e212*mt*p1p4+16*e213*mt*p1p4+16*e214*mt*p1p4-
     $     8*e223*mt*p1p4-8*e224*mt*p1p4+16*e23*mt*p1p4+
     $     24*e234*mt*p1p4+8*e24*mt*p1p4-8*e223*mt*p2p3-
     $     8*e224*mt*p2p3+4*e11*mt*p2p4+4*e13*mt*p2p4+
     $     4*e14*mt*p2p4-8*e212*mt*p2p4+8*e22*mt*p2p4-
     $     8*e223*mt*p2p4-8*e224*mt*p2p4-4*e13*mt*p3p4-
     $     4*e14*mt*p3p4-8*e213*mt*p3p4-8*e214*mt*p3p4+
     $     8*e223*mt*p3p4+8*e224*mt*p3p4-16*e23*mt*p3p4-
     $     24*e234*mt*p3p4-8*e24*mt*p3p4)
      kmv(10)=(4*e11*mt+4*e13*mt+4*e14*mt-8*e212*mt+8*e22*mt)
      kmv(11)=(4*e12*mt-8*e13*mt-8*e14*mt+8*e21*mt-8*e212*mt+
     $     8*e213*mt+8*e214*mt-8*e223*mt-8*e224*mt)
      kmv(13)=(-4*e11*mt-4*e13*mt-4*e14*mt+8*e212*mt-8*e22*mt+
     $     8*e224*mt)
      kmv(14)=(-4*e12*mt+8*e13*mt-8*e21*mt+8*e212*mt-8*e213*mt-
     $     16*e214*mt+8*e223*mt+8*e224*mt-8*e234*mt-8*e24*mt)
      kmv(16)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+
     $     8*e212*mt**2+8*e213*mt**2+8*e223*mt**2+8*e224*mt**2+
     $     8*e23*mt**2+8*e234*mt**2+8*e212*p1p2+8*e224*p1p2-
     $     16*e13*p1p3-8*e14*p1p3-16*e212*p1p3-8*e213*p1p3-
     $     16*e223*p1p3-16*e224*p1p3-16*e23*p1p3-
     $     16*e234*p1p3-8*e13*p1p4-8*e223*p1p4-8*e23*p1p4-
     $     8*e224*p2p3+8*e13*p3p4+8*e223*p3p4+8*e23*p3p4)
      kmv(17)=(-4*d0-4*d11-4*d12+8*e21*mt**2+8*e213*mt**2+
     $     16*e214*mt**2+8*e234*mt**2+8*e24*mt**2-8*e0*p1p2-
     $     16*e11*p1p2-8*e12*p1p2-16*e13*p1p2-16*e14*p1p2-
     $     8*e21*p1p2-16*e212*p1p2-16*e213*p1p2-
     $     16*e214*p1p2-8*e223*p1p2-16*e224*p1p2-8*e23*p1p2-
     $     16*e234*p1p2-8*e24*p1p2-8*e14*p1p3-8*e213*p1p3-
     $     16*e214*p1p3-16*e234*p1p3-16*e24*p1p3-
     $     8*e213*p1p4-8*e234*p1p4+8*e13*p2p3+8*e14*p2p3+
     $     16*e212*p2p3+8*e213*p2p3+8*e214*p2p3+8*e223*p2p3+
     $     16*e224*p2p3+8*e23*p2p3+16*e234*p2p3+8*e24*p2p3+
     $     8*e213*p3p4+8*e234*p3p4)
      kmv(19)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+
     $     8*e212*mt**2+8*e213*mt**2+8*e223*mt**2+8*e224*mt**2+
     $     8*e23*mt**2+8*e234*mt**2-8*e12*p1p2-8*e22*p1p2-
     $     8*e223*p1p2-16*e13*p1p3-8*e14*p1p3-16*e212*p1p3-
     $     8*e213*p1p3-16*e223*p1p3-24*e224*p1p3-
     $     16*e23*p1p3-16*e234*p1p3-8*e13*p1p4-8*e223*p1p4-
     $     8*e23*p1p4+8*e13*p3p4+8*e223*p3p4+8*e23*p3p4)
      kmv(20)=(-4*d0-4*d11-4*d12+8*e21*mt**2+8*e213*mt**2+
     $     16*e214*mt**2+8*e234*mt**2+8*e24*mt**2-8*e212*p1p2-
     $     8*e224*p1p2-8*e213*p1p3-8*e214*p1p3-8*e234*p1p3-
     $     8*e24*p1p3-8*e213*p1p4-8*e234*p1p4+8*e13*p2p3+
     $     16*e212*p2p3+8*e213*p2p3+8*e223*p2p3+
     $     16*e224*p2p3+8*e23*p2p3+8*e234*p2p3+8*e213*p3p4+
     $     8*e234*p3p4)
      kmv(22)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+
     $     16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-8*e224*p1p2-
     $     8*e13*p1p3-8*e14*p1p3-8*e213*p1p3-8*e214*p1p3-
     $     16*e23*p1p3-32*e234*p1p3-16*e24*p1p3+
     $     16*e212*p1p4+8*e223*p1p4+8*e224*p1p4-8*e23*p1p4-
     $     8*e234*p1p4+8*e223*p2p3+8*e224*p2p3+8*e223*p2p4+
     $     8*e224*p2p4-8*e223*p3p4-8*e224*p3p4+8*e23*p3p4+
     $     8*e234*p3p4)
      kmv(23)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+8*e223*p1p2+8*e224*p1p2+
     $     8*e13*p1p3+8*e14*p1p3+8*e213*p1p3+8*e214*p1p3+
     $     16*e23*p1p3+32*e234*p1p3+16*e24*p1p3+8*e13*p1p4+
     $     8*e14*p1p4+8*e213*p1p4+8*e214*p1p4+16*e23*p1p4+
     $     24*e234*p1p4+8*e24*p1p4-8*e223*p2p3-8*e224*p2p3-
     $     8*e13*p2p4-8*e14*p2p4-16*e212*p2p4-8*e213*p2p4-
     $     8*e214*p2p4-16*e223*p2p4-16*e224*p2p4-8*e23*p2p4-
     $     16*e234*p2p4-8*e24*p2p4-8*e13*p3p4-8*e14*p3p4-
     $     8*e213*p3p4-8*e214*p3p4-16*e23*p3p4-24*e234*p3p4-
     $     8*e24*p3p4)
      kmv(25)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+
     $     16*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e212*p1p2-
     $     8*e22*p1p2-16*e223*p1p2-16*e224*p1p2-8*e13*p1p3-
     $     8*e14*p1p3-8*e213*p1p3-8*e214*p1p3-16*e23*p1p3-
     $     32*e234*p1p3-16*e24*p1p3+16*e212*p1p4+
     $     8*e223*p1p4+16*e224*p1p4-8*e23*p1p4-8*e234*p1p4+
     $     8*e223*p2p3+8*e224*p2p3+8*e223*p2p4-8*e223*p3p4-
     $     8*e224*p3p4+8*e23*p3p4+8*e234*p3p4)
      kmv(26)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+8*e0*p1p2+16*e11*p1p2+
     $     8*e12*p1p2+16*e13*p1p2+16*e14*p1p2+8*e21*p1p2+
     $     8*e212*p1p2+16*e213*p1p2+16*e214*p1p2+
     $     16*e223*p1p2+16*e224*p1p2+8*e23*p1p2+
     $     16*e234*p1p2+8*e24*p1p2+8*e13*p1p3+8*e14*p1p3+
     $     8*e213*p1p3+8*e214*p1p3+16*e23*p1p3+32*e234*p1p3+
     $     16*e24*p1p3+8*e13*p1p4+8*e213*p1p4+16*e23*p1p4+
     $     16*e234*p1p4-8*e223*p2p3-8*e224*p2p3-8*e13*p2p4-
     $     16*e212*p2p4-8*e213*p2p4-16*e223*p2p4-
     $     16*e224*p2p4-8*e23*p2p4-8*e234*p2p4-8*e13*p3p4-
     $     8*e14*p3p4-8*e213*p3p4-8*e214*p3p4-16*e23*p3p4-
     $     24*e234*p3p4-8*e24*p3p4)
      kmv(28)=(-4*d0*mt-4*d11*mt+8*e21*mt**3+16*e213*mt**3+
     $     16*e214*mt**3+8*e23*mt**3+16*e234*mt**3+8*e24*mt**3-
     $     8*e212*mt*p1p2-8*e223*mt*p1p2-8*e224*mt*p1p2-
     $     8*e11*mt*p1p3-8*e13*mt*p1p3-8*e14*mt*p1p3-
     $     8*e21*mt*p1p3-24*e213*mt*p1p3-24*e214*mt*p1p3-
     $     16*e23*mt*p1p3-32*e234*mt*p1p3-16*e24*mt*p1p3-
     $     8*e213*mt*p1p4+8*e22*mt*p1p4-8*e23*mt*p1p4-
     $     8*e234*mt*p1p4+8*e212*mt*p2p3+8*e223*mt*p2p3+
     $     8*e224*mt*p2p3+8*e212*mt*p2p4+8*e223*mt*p2p4+
     $     8*e224*mt*p2p4+8*e212*mt*p3p4+8*e213*mt*p3p4-
     $     8*e22*mt*p3p4+8*e23*mt*p3p4+8*e234*mt*p3p4)
      kmv(29)=(4*d11*mt+8*e212*mt**3+8*e223*mt**3+8*e224*mt**3-
     $     8*e22*mt*p1p2-8*e12*mt*p1p3-8*e212*mt*p1p3-
     $     16*e223*mt*p1p3-16*e224*mt*p1p3-8*e12*mt*p1p4-
     $     8*e212*mt*p1p4-16*e223*mt*p1p4-8*e224*mt*p1p4+
     $     8*e22*mt*p2p3-8*e11*mt*p2p4-8*e13*mt*p2p4-
     $     8*e14*mt*p2p4-8*e21*mt*p2p4-16*e213*mt*p2p4-
     $     16*e214*mt*p2p4-8*e23*mt*p2p4-16*e234*mt*p2p4-
     $     8*e24*mt*p2p4+8*e13*mt*p3p4+8*e14*mt*p3p4-
     $     8*e21*mt*p3p4+8*e212*mt*p3p4-8*e213*mt*p3p4-
     $     8*e214*mt*p3p4+16*e223*mt*p3p4+8*e224*mt*p3p4)
      kmv(31)=(4*d0*mt+8*d11*mt-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3-
     $     16*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3-
     $     16*e234*mt**3-8*e24*mt**3+8*e212*mt*p1p2-8*e22*mt*p1p2+
     $     8*e223*mt*p1p2+8*e224*mt*p1p2+8*e11*mt*p1p3+
     $     8*e13*mt*p1p3+8*e14*mt*p1p3+8*e21*mt*p1p3+
     $     24*e213*mt*p1p3+24*e214*mt*p1p3+8*e22*mt*p1p3-
     $     8*e223*mt*p1p3-8*e224*mt*p1p3+16*e23*mt*p1p3+
     $     32*e234*mt*p1p3+16*e24*mt*p1p3+8*e213*mt*p1p4-
     $     8*e223*mt*p1p4+8*e23*mt*p1p4+8*e234*mt*p1p4-
     $     8*e212*mt*p3p4-8*e213*mt*p3p4+8*e22*mt*p3p4-
     $     8*e224*mt*p3p4-8*e23*mt*p3p4-8*e234*mt*p3p4)
      kmv(32)=(-8*e11*mt**3-8*e13*mt**3-8*e14*mt**3-8*e21*mt**3-
     $     8*e212*mt**3-16*e213*mt**3-16*e214*mt**3-8*e223*mt**3-
     $     8*e224*mt**3-8*e23*mt**3-16*e234*mt**3-8*e24*mt**3+
     $     8*e12*mt*p1p2+8*e212*mt*p1p2+8*e22*mt*p1p2+
     $     8*e223*mt*p1p2+8*e224*mt*p1p2+8*e13*mt*p1p3+
     $     8*e14*mt*p1p3+8*e213*mt*p1p3+8*e214*mt*p1p3+
     $     8*e223*mt*p1p3+8*e224*mt*p1p3+8*e23*mt*p1p3+
     $     16*e234*mt*p1p3+8*e24*mt*p1p3+8*e13*mt*p1p4+
     $     8*e213*mt*p1p4+8*e223*mt*p1p4+8*e23*mt*p1p4+
     $     8*e234*mt*p1p4-8*e11*mt*p2p3-8*e13*mt*p2p3-
     $     8*e14*mt*p2p3-8*e21*mt*p2p3-16*e213*mt*p2p3-
     $     16*e214*mt*p2p3-8*e22*mt*p2p3-8*e23*mt*p2p3-
     $     16*e234*mt*p2p3-8*e24*mt*p2p3-8*e13*mt*p3p4+
     $     8*e21*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4+
     $     16*e214*mt*p3p4-16*e223*mt*p3p4-8*e224*mt*p3p4+
     $     8*e234*mt*p3p4+8*e24*mt*p3p4)
      kmv(37)=-8*e224
      kmv(38)=(8*e13+8*e14+16*e212+8*e213+8*e214+8*e223+16*e224+
     $     8*e23+16*e234+8*e24)
      kmv(40)=(-8*e13-16*e212-8*e213-8*e223-8*e224-8*e23-8*e234)
      kmv(41)=(-8*e14-8*e214-8*e234-8*e24)
      kmv(46)=(-8*e212*mt-8*e223*mt-8*e224*mt)
      kmv(47)=(8*e11*mt+8*e13*mt+8*e14*mt+8*e21*mt+16*e213*mt+
     $     16*e214*mt+16*e223*mt+8*e23*mt+16*e234*mt+8*e24*mt)
      kmv(49)=(-8*e22*mt+16*e223*mt)
      kmv(50)=(8*e12*mt-16*e13*mt+8*e212*mt-32*e213*mt+8*e223*mt+
     $     8*e224*mt-32*e23*mt-32*e234*mt)
      kmv(55)=(-8*e212*mt - 8*e223*mt - 8*e224*mt)
      kmv(56)=(-8*e22*mt+16*e223*mt+16*e224*mt)
      kmv(58)=(8*e11*mt+8*e13*mt+8*e14*mt+8*e21*mt+16*e213*mt+
     $     16*e214*mt+16*e223*mt+16*e224*mt+8*e23*mt+16*e234*mt+
     $     8*e24*mt)
      kmv(59)=(8*e12*mt-16*e13*mt-16*e14*mt+8*e212*mt-32*e213*mt-
     $     32*e214*mt+8*e223*mt+8*e224*mt-32*e23*mt-64*e234*mt-
     $     32*e24*mt)
      kmv(64)=(-8*d11+8*d21-16*e212*mt**2-16*e223*mt**2-16*e224*mt**2+
     $     16*e223*p1p3+16*e224*p1p3+16*e223*p1p4-16*e223*p3p4)
      kmv(65)=(-8*d11+8*d21+16*e12*p1p2+32*e212*p1p2+
     $     16*e22*p1p2+32*e223*p1p2+32*e224*p1p2+
     $     16*e223*p1p3+16*e224*p1p3+16*e223*p1p4-
     $     16*e223*p2p3-16*e224*p2p3-16*e223*p2p4-
     $     16*e212*p3p4-16*e223*p3p4-16*e224*p3p4)
      kmv(67)=(-8*d11+8*d21+16*e11*mt**2+16*e13*mt**2+16*e14*mt**2+
     $     16*e21*mt**2+16*e212*mt**2+32*e213*mt**2+32*e214*mt**2+
     $     16*e223*mt**2+16*e224*mt**2+16*e23*mt**2+32*e234*mt**2+
     $     16*e24*mt**2+16*e212*p1p2+16*e223*p1p2+16*e224*p1p2-
     $     16*e13*p1p3-16*e14*p1p3-16*e213*p1p3-
     $     16*e214*p1p3-16*e23*p1p3-32*e234*p1p3-
     $     16*e24*p1p3-16*e13*p1p4-16*e213*p1p4-16*e23*p1p4-
     $     16*e234*p1p4-16*e223*p2p3-16*e224*p2p3-
     $     16*e223*p2p4+16*e13*p3p4+16*e212*p3p4+
     $     16*e213*p3p4+16*e23*p3p4+16*e234*p3p4)
      kmv(68)=(-8*d11+8*d21-16*e21*mt**2-32*e213*mt**2-32*e214*mt**2-
     $     16*e23*mt**2-32*e234*mt**2-16*e24*mt**2-16*e0*p1p2-
     $     48*e11*p1p2-16*e12*p1p2-48*e13*p1p2-48*e14*p1p2-
     $     48*e21*p1p2-16*e212*p1p2-96*e213*p1p2-
     $     96*e214*p1p2-16*e223*p1p2-16*e224*p1p2-
     $     48*e23*p1p2-96*e234*p1p2-48*e24*p1p2-16*e13*p1p3-
     $     16*e14*p1p3-16*e213*p1p3-16*e214*p1p3-
     $     16*e23*p1p3-32*e234*p1p3-16*e24*p1p3-16*e13*p1p4-
     $     16*e213*p1p4-16*e23*p1p4-16*e234*p1p4+
     $     16*e13*p2p3+16*e14*p2p3+32*e213*p2p3+
     $     32*e214*p2p3+32*e23*p2p3+64*e234*p2p3+
     $     32*e24*p2p3+16*e13*p2p4+32*e213*p2p4+32*e23*p2p4+
     $     32*e234*p2p4+16*e13*p3p4+16*e14*p3p4+
     $     16*e213*p3p4+16*e214*p3p4+16*e23*p3p4+
     $     32*e234*p3p4+16*e24*p3p4)

c add contribution from e3_m_n_r:

      kmv(46)=kmv(46)-16*e323*mt
      kmv(47)=kmv(47)+(16*e3123*mt+16*e3234*mt+16*e332*mt)
      kmv(49)=kmv(49)+(16*e3123*mt+16*e3234*mt+16*e332*mt)
      kmv(50)=kmv(50)+(-16*e313*mt-32*e3134*mt-16*e33*mt-
     $     32*e331*mt-32*e334*mt-
     $     16*e343*mt)
      kmv(55)=kmv(55)+(-16*e323*mt-16*e324*mt)
      kmv(56)=kmv(56)+(16*e3123*mt+16*e3124*mt+32*e3234*mt+
     $     16*e332*mt+16*e342*mt)
      kmv(58)=kmv(58)+(16*e3123*mt+16*e3124*mt+32*e3234*mt+
     $     16*e332*mt+16*e342*mt)
      kmv(59)=kmv(59)+(-16*e313*mt-64*e3134*mt-16*e314*mt-
     $     16*e33*mt-32*e331*mt-
     $     48*e334*mt-16*e34*mt-32*e341*mt-48*e343*mt)
      kmv(64)=kmv(64)+(-16*e321*mt**2-16*e323*mt**2-16*e324*mt**2-
     $     16*e321*p1p2-16*e323*p1p2-16*e324*p1p2+
     $     16*e323*p2p3+16*e324*p2p3+16*e323*p2p4)
      kmv(65)=kmv(65)+(16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+
     $     32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+
     $     32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+
     $     16*e332*p1p2+16*e342*p1p2-16*e3123*p2p3-
     $     16*e3124*p2p3-32*e3234*p2p3-16*e332*p2p3-
     $     16*e342*p2p3-16*e3123*p2p4-16*e3234*p2p4-
     $     16*e332*p2p4)
      kmv(67)=kmv(67)+(16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+
     $     32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+
     $     32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+
     $     16*e332*p1p2+16*e342*p1p2-16*e3123*p2p3-
     $     16*e3124*p2p3-32*e3234*p2p3-16*e332*p2p3-
     $     16*e342*p2p3-16*e3123*p2p4-16*e3234*p2p4-
     $     16*e332*p2p4)
      kmv(68)=kmv(68)+(-16*e31*mt**2-48*e313*mt**2-
     $     96*e3134*mt**2-48*e314*mt**2-
     $     16*e33*mt**2-48*e331*mt**2-48*e334*mt**2-16*e34*mt**2-
     $     48*e341*mt**2-48*e343*mt**2-16*e31*p1p2-48*e313*p1p2-
     $     96*e3134*p1p2-48*e314*p1p2-16*e33*p1p2-
     $     48*e331*p1p2-48*e334*p1p2-16*e34*p1p2-
     $     48*e341*p1p2-48*e343*p1p2+16*e313*p2p3+
     $     64*e3134*p2p3+16*e314*p2p3+16*e33*p2p3+
     $     32*e331*p2p3+48*e334*p2p3+16*e34*p2p3+
     $     32*e341*p2p3+48*e343*p2p3+16*e313*p2p4+
     $     32*e3134*p2p4+16*e33*p2p4+32*e331*p2p4+
     $     32*e334*p2p4+16*e343*p2p4)
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp3_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j
      real*8 mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c P3
      e1(0)=E0_ir(3,mt,mt**2,0d0,mh**2,0d0,mt**2,mt**2-2d0*p1p3,
     $     2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,
     $     2d0*mt**2+2d0*p1p2-2d0*p1p3-2d0*p2p3,mt**2-2d0*p2p4,
     $     2d0*mt**2+2d0*p1p2,0d0,mt,mt,mt,mt)
c      write(6,*)'E0=',e1(0)
      call eefunc_ir(3,mt,mt**2,mt**2,mt**2-2d0*p2p4,
     $     mt**2-2d0*p1p3,-p1p2,p1p4-p1p2,mt**2-p1p3,
     $     mt**2-p2p4,-p1p2+p2p3,p1p4-p3p4-p1p2+p2p3,
     $     0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
      kmv(1)=(16*d20-4*d0*mt**2+8*d11*mt**2+8*d12*mt**2+8*d21*mt**2+
     $     16*d212*mt**2+8*d22*mt**2+16*e212*mt**4+16*e213*mt**4+
     $     16*e224*mt**4+16*e234*mt**4+8*d0*p1p2+8*d11*p1p2+
     $     8*d12*p1p2+8*d21*p1p2+16*d212*p1p2+8*d22*p1p2-
     $     16*e21*mt**2*p1p2-32*e214*mt**2*p1p2-16*e22*mt**2*p1p2-
     $     32*e223*mt**2*p1p2-16*e23*mt**2*p1p2-16*e24*mt**2*p1p2+
     $     16*e212*p1p2**2+16*e213*p1p2**2+16*e224*p1p2**2+
     $     16*e234*p1p2**2+8*d213*p1p3+8*d223*p1p3-
     $     16*e224*mt**2*p1p3-16*e234*mt**2*p1p3+
     $     16*e214*p1p2*p1p3+16*e24*p1p2*p1p3-8*d0*p1p4-
     $     8*d11*p1p4-8*d12*p1p4-8*d212*p1p4-8*d22*p1p4+
     $     16*e21*mt**2*p1p4+32*e214*mt**2*p1p4+
     $     16*e223*mt**2*p1p4+16*e23*mt**2*p1p4+16*e24*mt**2*p1p4-
     $     16*e212*p1p2*p1p4-32*e213*p1p2*p1p4-
     $     16*e224*p1p2*p1p4-32*e234*p1p2*p1p4-
     $     16*e214*p1p3*p1p4-16*e24*p1p3*p1p4+
     $     16*e213*p1p4**2+16*e234*p1p4**2+8*d11*p2p3+
     $     8*d12*p2p3+8*d13*p2p3+8*d213*p2p3+8*d223*p2p3+
     $     16*e214*mt**2*p2p3+16*e22*mt**2*p2p3+
     $     32*e223*mt**2*p2p3+16*e23*mt**2*p2p3+16*e24*mt**2*p2p3-
     $     16*e212*p1p2*p2p3-16*e213*p1p2*p2p3-
     $     32*e224*p1p2*p2p3-32*e234*p1p2*p2p3-
     $     16*e24*p1p3*p2p3+16*e212*p1p4*p2p3+
     $     16*e213*p1p4*p2p3+16*e224*p1p4*p2p3+
     $     32*e234*p1p4*p2p3+16*e224*p2p3**2+16*e234*p2p3**2-
     $     8*d12*p2p4-8*d212*p2p4-8*d22*p2p4-
     $     16*e213*mt**2*p2p4-16*e234*mt**2*p2p4+
     $     16*e223*p1p2*p2p4+16*e23*p1p2*p2p4-
     $     16*e212*p1p3*p2p4-16*e213*p1p3*p2p4-
     $     16*e224*p1p3*p2p4-16*e23*p1p4*p2p4-
     $     16*e223*p2p3*p2p4-16*e23*p2p3*p2p4-8*d12*p3p4-
     $     8*d13*p3p4-8*d223*p3p4-16*e214*mt**2*p3p4-
     $     16*e223*mt**2*p3p4-16*e23*mt**2*p3p4-16*e24*mt**2*p3p4+
     $     16*e213*p1p2*p3p4+16*e224*p1p2*p3p4+
     $     32*e234*p1p2*p3p4+16*e24*p1p3*p3p4-
     $     16*e213*p1p4*p3p4-32*e234*p1p4*p3p4-
     $     16*e224*p2p3*p3p4-32*e234*p2p3*p3p4+
     $     16*e23*p2p4*p3p4+16*e234*p3p4**2)
      kmv(2)=(-4*d0+4*d12+4*d13+8*e214*mt**2+8*e223*mt**2+
     $     8*e23*mt**2+8*e24*mt**2-8*e213*p1p2-8*e224*p1p2-
     $     16*e234*p1p2-8*e214*p1p3-16*e24*p1p3+8*e213*p1p4+
     $     16*e234*p1p4+8*e224*p2p3+16*e234*p2p3-
     $     8*e223*p2p4-16*e23*p2p4-16*e234*p3p4)
      kmv(3)=(-4*d0*mt-8*d11*mt-8*d12*mt+8*e21*mt**3-8*e212*mt**3-
     $     8*e213*mt**3+16*e214*mt**3-8*e224*mt**3-8*e234*mt**3+
     $     8*e24*mt**3-8*e212*mt*p1p2-8*e213*mt*p1p2+
     $     8*e22*mt*p1p2+16*e223*mt*p1p2-8*e224*mt*p1p2+
     $     8*e23*mt*p1p2-8*e234*mt*p1p2-8*e21*mt*p1p3+
     $     8*e212*mt*p1p3+8*e213*mt*p1p3-24*e214*mt*p1p3+
     $     16*e224*mt*p1p3+16*e234*mt*p1p3-16*e24*mt*p1p3+
     $     8*e213*mt*p1p4-8*e223*mt*p1p4-8*e23*mt*p1p4+
     $     8*e234*mt*p1p4+8*e212*mt*p2p3+8*e213*mt*p2p3-
     $     8*e22*mt*p2p3-16*e223*mt*p2p3+8*e224*mt*p2p3-
     $     8*e23*mt*p2p3+8*e234*mt*p2p3-8*e213*mt*p3p4+
     $     8*e223*mt*p3p4+8*e23*mt*p3p4-8*e234*mt*p3p4)
      kmv(4)=(-4*d0*mt-8*d11*mt-8*d12*mt+8*e212*mt**3+8*e213*mt**3-
     $     8*e22*mt**3-16*e223*mt**3+8*e224*mt**3-8*e23*mt**3+
     $     8*e234*mt**3-8*e21*mt*p1p2+8*e212*mt*p1p2+
     $     8*e213*mt*p1p2-16*e214*mt*p1p2+8*e224*mt*p1p2+
     $     8*e234*mt*p1p2-8*e24*mt*p1p2+8*e21*mt*p1p4-
     $     8*e212*mt*p1p4-8*e213*mt*p1p4+16*e214*mt*p1p4-
     $     8*e224*mt*p1p4-8*e234*mt*p1p4+8*e24*mt*p1p4+
     $     8*e214*mt*p2p3-8*e224*mt*p2p3-8*e234*mt*p2p3+
     $     8*e24*mt*p2p3-8*e212*mt*p2p4-16*e213*mt*p2p4+
     $     8*e22*mt*p2p4+24*e223*mt*p2p4-8*e224*mt*p2p4+
     $     16*e23*mt*p2p4-16*e234*mt*p2p4-8*e214*mt*p3p4+
     $     8*e224*mt*p3p4+8*e234*mt*p3p4-8*e24*mt*p3p4)
      kmv(5)=(4*d11*p1p3+4*d12*p1p3-8*e12*mt**2*p1p3-
     $     8*e13*mt**2*p1p3-8*e212*mt**2*p1p3-8*e213*mt**2*p1p3-
     $     8*e224*mt**2*p1p3-8*e234*mt**2*p1p3+
     $     8*e11*p1p2*p1p3+8*e14*p1p2*p1p3+
     $     8*e21*p1p2*p1p3+16*e214*p1p2*p1p3+
     $     8*e24*p1p2*p1p3+4*d0*p1p4+4*d11*p1p4+
     $     4*d12*p1p4-8*e21*mt**2*p1p4-16*e214*mt**2*p1p4-
     $     8*e24*mt**2*p1p4+8*e212*p1p2*p1p4+
     $     8*e213*p1p2*p1p4+8*e224*p1p2*p1p4+
     $     8*e234*p1p2*p1p4+8*e214*p1p3*p1p4+
     $     8*e24*p1p3*p1p4-8*e213*p1p4**2-8*e234*p1p4**2-
     $     4*d11*p2p3-4*d12*p2p3-8*e22*mt**2*p2p3-
     $     16*e223*mt**2*p2p3-8*e23*mt**2*p2p3+
     $     8*e212*p1p2*p2p3+8*e213*p1p2*p2p3+
     $     8*e224*p1p2*p2p3+8*e234*p1p2*p2p3-
     $     8*e14*p1p3*p2p3-8*e214*p1p3*p2p3-
     $     8*e24*p1p3*p2p3-16*e212*p1p4*p2p3-
     $     16*e213*p1p4*p2p3-16*e224*p1p4*p2p3-
     $     16*e234*p1p4*p2p3-8*e224*p2p3**2-8*e234*p2p3**2-
     $     4*d0*p2p4-4*d11*p2p4-4*d12*p2p4-8*e11*mt**2*p2p4-
     $     8*e14*mt**2*p2p4-8*e212*mt**2*p2p4-8*e213*mt**2*p2p4-
     $     8*e224*mt**2*p2p4-8*e234*mt**2*p2p4+
     $     8*e12*p1p2*p2p4+8*e13*p1p2*p2p4+
     $     8*e22*p1p2*p2p4+16*e223*p1p2*p2p4+
     $     8*e23*p1p2*p2p4+8*e13*p1p3*p2p4+
     $     8*e14*p1p3*p2p4+16*e212*p1p3*p2p4+
     $     24*e213*p1p3*p2p4+24*e224*p1p3*p2p4+
     $     32*e234*p1p3*p2p4-8*e13*p1p4*p2p4-
     $     8*e223*p1p4*p2p4-8*e23*p1p4*p2p4+
     $     8*e223*p2p3*p2p4+8*e23*p2p3*p2p4-4*d0*p3p4+
     $     4*d12*p3p4+4*d13*p3p4+8*e214*mt**2*p3p4+
     $     8*e223*mt**2*p3p4+8*e23*mt**2*p3p4+8*e24*mt**2*p3p4-
     $     8*e213*p1p2*p3p4-8*e224*p1p2*p3p4-
     $     16*e234*p1p2*p3p4+8*e14*p1p3*p3p4-
     $     8*e24*p1p3*p3p4+16*e213*p1p4*p3p4+
     $     24*e234*p1p4*p3p4+16*e224*p2p3*p3p4+
     $     24*e234*p2p3*p3p4+8*e13*p2p4*p3p4-
     $     8*e23*p2p4*p3p4-16*e234*p3p4**2)
      kmv(6)=(4*d0-4*d12-4*d13-8*e214*mt**2-8*e223*mt**2-8*e23*mt**2-
     $     8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+4*e12*p1p2+
     $     4*e13*p1p2+4*e14*p1p2+8*e213*p1p2+8*e224*p1p2+
     $     16*e234*p1p2+8*e214*p1p3+16*e24*p1p3-8*e213*p1p4-
     $     16*e234*p1p4-8*e224*p2p3-16*e234*p2p3+
     $     8*e223*p2p4+16*e23*p2p4+16*e234*p3p4)
      kmv(7)=(-6*d0*mt-8*d11*mt-8*d12*mt-4*e11*mt**3-4*e14*mt**3+
     $     8*e21*mt**3-8*e212*mt**3-8*e213*mt**3+16*e214*mt**3-
     $     8*e224*mt**3-8*e234*mt**3+8*e24*mt**3+4*e12*mt*p1p2+
     $     4*e13*mt*p1p2-8*e212*mt*p1p2-8*e213*mt*p1p2+
     $     8*e22*mt*p1p2+16*e223*mt*p1p2-8*e224*mt*p1p2+
     $     8*e23*mt*p1p2-8*e234*mt*p1p2-4*e12*mt*p1p3-
     $     4*e13*mt*p1p3+4*e14*mt*p1p3-8*e21*mt*p1p3+
     $     8*e212*mt*p1p3+8*e213*mt*p1p3-24*e214*mt*p1p3+
     $     16*e224*mt*p1p3+16*e234*mt*p1p3-16*e24*mt*p1p3-
     $     4*e13*mt*p1p4+8*e213*mt*p1p4-8*e223*mt*p1p4-
     $     8*e23*mt*p1p4+8*e234*mt*p1p4-4*e11*mt*p2p3-
     $     4*e14*mt*p2p3+8*e212*mt*p2p3+8*e213*mt*p2p3-
     $     8*e22*mt*p2p3-16*e223*mt*p2p3+8*e224*mt*p2p3-
     $     8*e23*mt*p2p3+8*e234*mt*p2p3+4*e13*mt*p3p4-
     $     8*e213*mt*p3p4+8*e223*mt*p3p4+8*e23*mt*p3p4-
     $     8*e234*mt*p3p4)
      kmv(8)=(-2*d0*mt-8*d11*mt-8*d12*mt+4*e12*mt**3+4*e13*mt**3+
     $     8*e212*mt**3+8*e213*mt**3-8*e22*mt**3-16*e223*mt**3+
     $     8*e224*mt**3-8*e23*mt**3+8*e234*mt**3-4*e11*mt*p1p2-
     $     4*e14*mt*p1p2-8*e21*mt*p1p2+8*e212*mt*p1p2+
     $     8*e213*mt*p1p2-16*e214*mt*p1p2+8*e224*mt*p1p2+
     $     8*e234*mt*p1p2-8*e24*mt*p1p2+4*e12*mt*p1p4+
     $     4*e13*mt*p1p4+8*e21*mt*p1p4-8*e212*mt*p1p4-
     $     8*e213*mt*p1p4+16*e214*mt*p1p4-8*e224*mt*p1p4-
     $     8*e234*mt*p1p4+8*e24*mt*p1p4+4*e14*mt*p2p3+
     $     8*e214*mt*p2p3-8*e224*mt*p2p3-8*e234*mt*p2p3+
     $     8*e24*mt*p2p3+4*e11*mt*p2p4-4*e13*mt*p2p4+
     $     4*e14*mt*p2p4-8*e212*mt*p2p4-16*e213*mt*p2p4+
     $     8*e22*mt*p2p4+24*e223*mt*p2p4-8*e224*mt*p2p4+
     $     16*e23*mt*p2p4-16*e234*mt*p2p4-4*e14*mt*p3p4-
     $     8*e214*mt*p3p4+8*e224*mt*p3p4+8*e234*mt*p3p4-
     $     8*e24*mt*p3p4)
      kmv(10)=(4*e11*mt+4*e14*mt-8*e212*mt-8*e213*mt+8*e22*mt+
     $     16*e223*mt+8*e23*mt)
      kmv(11)=(4*e12*mt+4*e13*mt-8*e14*mt+8*e21*mt-8*e212*mt-
     $     8*e213*mt+8*e214*mt-8*e224*mt-8*e234*mt)
      kmv(13)=(-4*e11*mt+8*e13*mt-4*e14*mt+8*e212*mt+8*e213*mt-
     $     8*e22*mt-8*e223*mt+8*e224*mt+8*e234*mt)
      kmv(14)=(-4*e12*mt-4*e13*mt-8*e21*mt+8*e212*mt-16*e214*mt+
     $     8*e224*mt-8*e24*mt)
      kmv(16)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e14*mt**2+8*e212*mt**2+
     $     8*e213*mt**2+8*e224*mt**2+8*e234*mt**2+8*e212*p1p2+
     $     8*e213*p1p2+8*e224*p1p2+8*e234*p1p2-8*e14*p1p3-
     $     16*e212*p1p3-16*e213*p1p3-16*e224*p1p3-
     $     16*e234*p1p3+8*e13*p1p4+8*e223*p1p4+8*e23*p1p4-
     $     8*e224*p2p3-8*e234*p2p3-8*e13*p3p4-8*e223*p3p4-
     $     8*e23*p3p4)
      kmv(17)=(-4*d0-4*d11-4*d12+8*e21*mt**2+16*e214*mt**2+
     $     8*e24*mt**2-8*e0*p1p2-16*e11*p1p2-8*e12*p1p2-
     $     8*e13*p1p2-16*e14*p1p2-8*e21*p1p2-16*e212*p1p2-
     $     16*e213*p1p2-16*e214*p1p2-16*e224*p1p2-
     $     16*e234*p1p2-8*e24*p1p2-8*e14*p1p3-16*e214*p1p3-
     $     16*e24*p1p3+8*e213*p1p4+8*e234*p1p4+8*e14*p2p3+
     $     16*e212*p2p3+16*e213*p2p3+8*e214*p2p3+
     $     16*e224*p2p3+16*e234*p2p3+8*e24*p2p3-8*e213*p3p4-
     $     8*e234*p3p4)
      kmv(19)=(4*d0+4*d11+4*d12+8*e11*mt**2+8*e14*mt**2+8*e212*mt**2+
     $     8*e213*mt**2+8*e224*mt**2+8*e234*mt**2-8*e12*p1p2-
     $     8*e13*p1p2-8*e22*p1p2-16*e223*p1p2-8*e23*p1p2-
     $     8*e13*p1p3-8*e14*p1p3-16*e212*p1p3-16*e213*p1p3-
     $     8*e223*p1p3-24*e224*p1p3-8*e23*p1p3-24*e234*p1p3+
     $     8*e13*p1p4+8*e223*p1p4+8*e23*p1p4+8*e13*p2p3+
     $     8*e223*p2p3+8*e23*p2p3-8*e13*p3p4-8*e223*p3p4-
     $     8*e23*p3p4)
      kmv(20)=(-4*d0-4*d11-4*d12+8*e21*mt**2+16*e214*mt**2+
     $     8*e24*mt**2-8*e212*p1p2-8*e213*p1p2-8*e224*p1p2-
     $     8*e234*p1p2+8*e213*p1p3-8*e214*p1p3+8*e234*p1p3-
     $     8*e24*p1p3+8*e213*p1p4+8*e234*p1p4+16*e212*p2p3+
     $     8*e213*p2p3+16*e224*p2p3+8*e234*p2p3-8*e213*p3p4-
     $     8*e234*p3p4)
      kmv(22)=(4*d11+4*d12+8*e22*mt**2+16*e223*mt**2+8*e23*mt**2-
     $     8*e212*p1p2-8*e213*p1p2-8*e224*p1p2-8*e234*p1p2+
     $     16*e212*p1p4+16*e213*p1p4+8*e224*p1p4+
     $     8*e234*p1p4+8*e224*p2p3+8*e234*p2p3-8*e223*p2p4+
     $     8*e224*p2p4-8*e23*p2p4+8*e234*p2p4-8*e224*p3p4-
     $     8*e234*p3p4)
      kmv(23)=(-4*d11-4*d12+8*e12*mt**2+8*e13*mt**2+8*e212*mt**2+
     $     8*e213*mt**2+8*e224*mt**2+8*e234*mt**2-8*e11*p1p2-
     $     8*e14*p1p2-8*e21*p1p2-16*e214*p1p2-8*e24*p1p2+
     $     8*e14*p1p4+8*e214*p1p4+8*e24*p1p4+8*e14*p2p3+
     $     8*e214*p2p3+8*e24*p2p3-8*e13*p2p4-8*e14*p2p4-
     $     16*e212*p2p4-24*e213*p2p4-8*e214*p2p4-
     $     16*e224*p2p4-24*e234*p2p4-8*e24*p2p4-8*e14*p3p4-
     $     8*e214*p3p4-8*e24*p3p4)
      kmv(25)=(4*d11+4*d12+8*e22*mt**2+16*e223*mt**2+8*e23*mt**2-
     $     8*e0*p1p2-8*e11*p1p2-16*e12*p1p2-16*e13*p1p2-
     $     8*e14*p1p2-16*e212*p1p2-16*e213*p1p2-8*e22*p1p2-
     $     16*e223*p1p2-16*e224*p1p2-8*e23*p1p2-
     $     16*e234*p1p2+8*e13*p1p4+16*e212*p1p4+
     $     16*e213*p1p4+8*e223*p1p4+16*e224*p1p4+8*e23*p1p4+
     $     16*e234*p1p4+8*e224*p2p3+8*e234*p2p3-8*e13*p2p4-
     $     16*e223*p2p4-16*e23*p2p4-8*e224*p3p4-8*e234*p3p4)
      kmv(26)=(-4*d11-4*d12+8*e12*mt**2+8*e13*mt**2+8*e212*mt**2+
     $     8*e213*mt**2+8*e224*mt**2+8*e234*mt**2+8*e212*p1p2+
     $     8*e213*p1p2+8*e224*p1p2+8*e234*p1p2-8*e213*p1p4-
     $     8*e234*p1p4+8*e14*p2p3+8*e214*p2p3+8*e24*p2p3-
     $     8*e13*p2p4-16*e212*p2p4-16*e213*p2p4-
     $     16*e224*p2p4-16*e234*p2p4-8*e14*p3p4-8*e214*p3p4-
     $     8*e24*p3p4)
      kmv(28)=(4*d11*mt+4*d12*mt+8*e22*mt**3+16*e223*mt**3+8*e23*mt**3-
     $     8*e212*mt*p1p2-8*e213*mt*p1p2-8*e224*mt*p1p2-
     $     8*e234*mt*p1p2+8*e22*mt*p1p4+16*e223*mt*p1p4+
     $     8*e23*mt*p1p4+8*e224*mt*p2p3+8*e234*mt*p2p3+
     $     8*e212*mt*p2p4+8*e213*mt*p2p4-8*e223*mt*p2p4+
     $     8*e224*mt*p2p4-8*e23*mt*p2p4+8*e234*mt*p2p4+
     $     8*e212*mt*p3p4+8*e213*mt*p3p4-8*e22*mt*p3p4-
     $     16*e223*mt*p3p4-8*e23*mt*p3p4)
      kmv(29)=(4*d11*mt+4*d12*mt-8*e12*mt**3-8*e13*mt**3-8*e212*mt**3-
     $     8*e213*mt**3-8*e224*mt**3-8*e234*mt**3+8*e11*mt*p1p2+
     $     8*e14*mt*p1p2+8*e21*mt*p1p2+16*e214*mt*p1p2+
     $     8*e24*mt*p1p2-8*e12*mt*p1p4-8*e13*mt*p1p4-
     $     8*e212*mt*p1p4-8*e213*mt*p1p4-8*e224*mt*p1p4-
     $     8*e234*mt*p1p4-8*e14*mt*p2p3-8*e214*mt*p2p3-
     $     8*e24*mt*p2p3-8*e11*mt*p2p4+8*e13*mt*p2p4-
     $     8*e14*mt*p2p4-8*e21*mt*p2p4+8*e213*mt*p2p4-
     $     16*e214*mt*p2p4+8*e234*mt*p2p4-8*e24*mt*p2p4+
     $     8*e14*mt*p3p4-8*e21*mt*p3p4+8*e212*mt*p3p4+
     $     8*e213*mt*p3p4-8*e214*mt*p3p4+8*e224*mt*p3p4+
     $     8*e234*mt*p3p4)
      kmv(31)=(4*d0*mt+4*d11*mt+4*d12*mt+8*e11*mt**3+8*e14*mt**3+
     $     8*e212*mt**3+8*e213*mt**3+8*e224*mt**3+8*e234*mt**3-
     $     8*e12*mt*p1p2-8*e13*mt*p1p2-8*e22*mt*p1p2-
     $     16*e223*mt*p1p2-8*e23*mt*p1p2+8*e12*mt*p1p3+
     $     8*e13*mt*p1p3-8*e14*mt*p1p3+8*e22*mt*p1p3+
     $     16*e223*mt*p1p3-8*e224*mt*p1p3+8*e23*mt*p1p3-
     $     8*e234*mt*p1p3+8*e13*mt*p1p4+8*e223*mt*p1p4+
     $     8*e23*mt*p1p4+8*e11*mt*p2p3+8*e14*mt*p2p3+
     $     8*e212*mt*p2p3+8*e213*mt*p2p3+8*e224*mt*p2p3+
     $     8*e234*mt*p2p3-8*e13*mt*p3p4-8*e212*mt*p3p4-
     $     8*e213*mt*p3p4+8*e22*mt*p3p4+8*e223*mt*p3p4-
     $     8*e224*mt*p3p4-8*e234*mt*p3p4)
      kmv(32)=(4*d0*mt+4*d11*mt+4*d12*mt-8*e21*mt**3-16*e214*mt**3-
     $     8*e24*mt**3+8*e212*mt*p1p2+8*e213*mt*p1p2+
     $     8*e224*mt*p1p2+8*e234*mt*p1p2-8*e212*mt*p1p3-
     $     8*e213*mt*p1p3+8*e214*mt*p1p3-8*e224*mt*p1p3-
     $     8*e234*mt*p1p3+8*e24*mt*p1p3-8*e213*mt*p1p4-
     $     8*e234*mt*p1p4-8*e21*mt*p2p3-16*e214*mt*p2p3-
     $     8*e24*mt*p2p3+8*e21*mt*p3p4-8*e212*mt*p3p4+
     $     16*e214*mt*p3p4-8*e224*mt*p3p4+8*e24*mt*p3p4)
      kmv(37)=(-8*e13-8*e223-8*e224-8*e23-8*e234)
      kmv(38)=(8*e13+8*e14+16*e212+16*e213+8*e214+8*e223+16*e224+
     $     8*e23+16*e234+8*e24)
      kmv(40)=(-16*e212-8*e213-8*e224)
      kmv(41)=(-8*e14-8*e213-8*e214-8*e234-8*e24)
      kmv(46)=(-8*e212*mt-8*e213*mt+16*e223*mt-8*e224*mt+16*e23*mt-
     $     8*e234*mt)
      kmv(47)=(8*e11*mt-16*e13*mt+8*e14*mt+8*e21*mt-16*e213*mt+
     $     16*e214*mt-16*e223*mt-16*e23*mt-16*e234*mt+8*e24*mt)
      kmv(49)=(-8*e22*mt-16*e223*mt-8*e23*mt)
      kmv(50)=(8*e12*mt+8*e13*mt+8*e212*mt+24*e213*mt+8*e224*mt+
     $     24*e234*mt)
      kmv(55)=(-8*e11*mt-8*e14*mt-8*e212*mt-8*e213*mt-24*e224*mt-
     $     24*e234*mt)
      kmv(56)=(-8*e12*mt-8*e13*mt+16*e14*mt+16*e214*mt-8*e22*mt-
     $     16*e223*mt+16*e224*mt-8*e23*mt+16*e234*mt+16*e24*mt)
      kmv(58)=(8*e21*mt+16*e214*mt+8*e24*mt)
      kmv(59)=(8*e212*mt+8*e213*mt-16*e214*mt+8*e224*mt+8*e234*mt-
     $     16*e24*mt)
      kmv(64)=(-8*d0-16*e11*mt**2-16*e14*mt**2-32*e212*mt**2-
     $     32*e213*mt**2-32*e224*mt**2-32*e234*mt**2-16*e212*p1p2-
     $     16*e213*p1p2-16*e224*p1p2-16*e234*p1p2+
     $     16*e14*p1p3+16*e224*p1p3+16*e234*p1p3-
     $     16*e13*p1p4-16*e223*p1p4-16*e23*p1p4+
     $     16*e224*p2p3+16*e234*p2p3-16*e223*p2p4-
     $     16*e23*p2p4+16*e13*p3p4+16*e223*p3p4+16*e23*p3p4)
      kmv(65)=(-8*d0+16*e21*mt**2+32*e214*mt**2+16*e22*mt**2+
     $     32*e223*mt**2+16*e23*mt**2+16*e24*mt**2+16*e0*p1p2+
     $     32*e11*p1p2+32*e12*p1p2+32*e13*p1p2+32*e14*p1p2+
     $     16*e21*p1p2+16*e212*p1p2+16*e213*p1p2+
     $     32*e214*p1p2+16*e22*p1p2+32*e223*p1p2+
     $     16*e224*p1p2+16*e23*p1p2+16*e234*p1p2+
     $     16*e24*p1p2+16*e14*p1p3+16*e224*p1p3+
     $     16*e234*p1p3-16*e13*p1p4-16*e223*p1p4-
     $     16*e23*p1p4-16*e14*p2p3-16*e214*p2p3-16*e24*p2p3+
     $     16*e13*p2p4+16*e213*p2p4+16*e234*p2p4-
     $     16*e212*p3p4-16*e213*p3p4-16*e224*p3p4-16*e234*p3p4)
      kmv(67)=(-8*d0+16*e21*mt**2+32*e214*mt**2+16*e22*mt**2+
     $     32*e223*mt**2+16*e23*mt**2+16*e24*mt**2-16*e212*p1p2-
     $     16*e213*p1p2-16*e224*p1p2-16*e234*p1p2-
     $     16*e214*p1p3-16*e24*p1p3+16*e213*p1p4+
     $     16*e234*p1p4+16*e224*p2p3+16*e234*p2p3-
     $     16*e223*p2p4-16*e23*p2p4+16*e212*p3p4-16*e234*p3p4)
      kmv(68)=(-8*d0-16*e12*mt**2-16*e13*mt**2-32*e212*mt**2-
     $     32*e213*mt**2-32*e224*mt**2-32*e234*mt**2-16*e212*p1p2-
     $     16*e213*p1p2-16*e224*p1p2-16*e234*p1p2-
     $     16*e214*p1p3-16*e24*p1p3+16*e213*p1p4+
     $     16*e234*p1p4-16*e14*p2p3-16*e214*p2p3-
     $     16*e24*p2p3+16*e13*p2p4+16*e213*p2p4+
     $     16*e234*p2p4+16*e14*p3p4+16*e214*p3p4+16*e24*p3p4)
      
      kmv(46)=kmv(46)+2*(8*e323*mt+8*e33*mt+16*e332*mt)
      kmv(47)=kmv(47)+2*(-8*e3123*mt-8*e3234*mt-8*e331*mt-8*e334*mt)
      kmv(49)=kmv(49)+2*(-8*e3123*mt-8*e3234*mt-8*e331*mt-8*e334*mt)
      kmv(50)=kmv(50)+2*(8*e313*mt+16*e3134*mt+8*e343*mt)
      kmv(55)=kmv(55)+2*(-16*e3234*mt-8*e324*mt-8*e334*mt)
      kmv(56)=kmv(56)+2*(8*e3124*mt+8*e3134*mt+8*e342*mt+8*e343*mt)
      kmv(58)=kmv(58)+2*(8*e3124*mt+8*e3134*mt+8*e342*mt+8*e343*mt)
      kmv(59)=kmv(59)+2*(-8*e314*mt-8*e34*mt-16*e341*mt)
      kmv(64)=kmv(64)+2*
     $     (-16*e3123*mt**2-8*e32*mt**2-8*e321*mt**2-24*e323*mt**2-
     $     16*e3234*mt**2-8*e324*mt**2-8*e33*mt**2-8*e331*mt**2-
     $     24*e332*mt**2-8*e334*mt**2)
      kmv(65)=kmv(65)+2*
     $     (8*e312*mt**2+16*e3123*mt**2+16*e3124*mt**2+8*e313*mt**2+
     $     16*e3134*mt**2+8*e321*mt**2+16*e3234*mt**2+8*e324*mt**2+
     $     8*e331*mt**2+8*e334*mt**2+8*e342*mt**2+8*e343*mt**2)
      kmv(67)=kmv(67)+2*
     $     (8*e312*mt**2+16*e3123*mt**2+16*e3124*mt**2+8*e313*mt**2+
     $     16*e3134*mt**2+8*e321*mt**2+16*e3234*mt**2+8*e324*mt**2+
     $     8*e331*mt**2+8*e334*mt**2+8*e342*mt**2+8*e343*mt**2)
      kmv(68)=kmv(68)+2*
     $     (-8*e31*mt**2-8*e312*mt**2-16*e3124*mt**2-8*e313*mt**2-
     $     16*e3134*mt**2-24*e314*mt**2-8*e34*mt**2-24*e341*mt**2-
     $     8*e342*mt**2-8*e343*mt**2)
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp4_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j
      real*8 mt,mh
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c P4
      e1(0)=E0_ir(4,mt,mt**2,0d0,0d0,mh**2,mt**2,mt**2-2d0*p2p4,
     $     2d0*p3p4,2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,
     $     mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,2d0*mt**2+2d0*p1p2,
     $     0d0,mt,mt,mt,mt)
c      write(6,*)'E0=',e1(0)
      call eefunc_ir(4,mt,mt**2,mt**2,mt**2-2d0*p2p4,
     $     mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,-p1p2,mt**2-p2p4,
     $     mt**2-p2p3-p2p4,-p1p2+p1p4,-p1p2+p1p3+p1p4,
     $     mt**2-2d0*p2p4-p2p3+p3p4,
     $     0d0,mt,mt,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
      kmv(1)=(-8*d20+4*d0*mt**2-8*d21*mt**2-8*d21*p1p2-
     $     8*d213*p1p3-8*d11*p1p4-8*d212*p1p4-8*d213*p1p4-
     $     8*d0*p2p3-8*d11*p2p3-8*d213*p2p3+
     $     16*e21*mt**2*p2p3+32*e213*mt**2*p2p3+
     $     32*e214*mt**2*p2p3+16*e23*mt**2*p2p3+
     $     32*e234*mt**2*p2p3+16*e24*mt**2*p2p3-
     $     16*e212*p1p2*p2p3-16*e223*p1p2*p2p3-
     $     16*e224*p1p2*p2p3+16*e212*p1p4*p2p3+
     $     16*e223*p1p4*p2p3+16*e224*p1p4*p2p3-
     $     16*e214*p2p3**2-16*e234*p2p3**2-16*e24*p2p3**2-
     $     8*d11*p2p4-8*d212*p2p4-8*d213*p2p4-
     $     16*e212*p1p3*p2p4-16*e223*p1p3*p2p4-
     $     16*e224*p1p3*p2p4-16*e213*p2p3*p2p4-
     $     16*e214*p2p3*p2p4-16*e23*p2p3*p2p4-
     $     32*e234*p2p3*p2p4-16*e24*p2p3*p2p4-8*d12*p3p4-
     $     16*d13*p3p4-8*d223*p3p4-8*d23*p3p4-
     $     16*e213*mt**2*p3p4-16*e214*mt**2*p3p4-
     $     16*e23*mt**2*p3p4-32*e234*mt**2*p3p4-16*e24*mt**2*p3p4+
     $     16*e223*p1p2*p3p4+16*e224*p1p2*p3p4-
     $     16*e223*p1p4*p3p4-16*e224*p1p4*p3p4+
     $     16*e214*p2p3*p3p4+32*e234*p2p3*p3p4+
     $     32*e24*p2p3*p3p4+16*e23*p2p4*p3p4+
     $     32*e234*p2p4*p3p4+16*e24*p2p4*p3p4-
     $     16*e234*p3p4**2-16*e24*p3p4**2)
      kmv(2)=(-4*d0+4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+
     $     8*e23*mt**2+16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-
     $     8*e224*p1p2+8*e224*p1p3+8*e223*p1p4+8*e224*p1p4-
     $     8*e214*p2p3-16*e234*p2p3-16*e24*p2p3-8*e213*p2p4-
     $     8*e214*p2p4-16*e23*p2p4-32*e234*p2p4-16*e24*p2p4+
     $     16*e234*p3p4+16*e24*p3p4)
      kmv(3)=(8*e212*mt*p1p3-8*e22*mt*p1p3+8*e223*mt*p1p3+
     $     8*e224*mt*p1p3-8*e21*mt*p2p3+8*e212*mt*p2p3-
     $     16*e213*mt*p2p3-16*e214*mt*p2p3+8*e223*mt*p2p3+
     $     8*e224*mt*p2p3-8*e23*mt*p2p3-16*e234*mt*p2p3-
     $     8*e24*mt*p2p3+8*e213*mt*p3p4+8*e214*mt*p3p4-
     $     8*e223*mt*p3p4-8*e224*mt*p3p4+8*e23*mt*p3p4+
     $     16*e234*mt*p3p4+8*e24*mt*p3p4)
      kmv(4)=(4*d0*mt+8*d11*mt-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3-
     $     16*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3-
     $     16*e234*mt**3-8*e24*mt**3+8*e212*mt*p1p2-8*e22*mt*p1p2+
     $     8*e223*mt*p1p2+8*e224*mt*p1p2-8*e212*mt*p1p4+
     $     8*e22*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+
     $     8*e214*mt*p2p3-8*e224*mt*p2p3+8*e234*mt*p2p3+
     $     8*e24*mt*p2p3+8*e21*mt*p2p4-8*e212*mt*p2p4+
     $     24*e213*mt*p2p4+24*e214*mt*p2p4-16*e223*mt*p2p4-
     $     16*e224*mt*p2p4+16*e23*mt*p2p4+32*e234*mt*p2p4+
     $     16*e24*mt*p2p4-8*e214*mt*p3p4+8*e224*mt*p3p4-
     $     8*e234*mt*p3p4-8*e24*mt*p3p4)
      kmv(5)=(8*e11*mt**2*p1p2+8*e13*mt**2*p1p2+
     $     8*e14*mt**2*p1p2+8*e21*mt**2*p1p2+8*e212*mt**2*p1p2+
     $     16*e213*mt**2*p1p2+16*e214*mt**2*p1p2+
     $     8*e223*mt**2*p1p2+8*e224*mt**2*p1p2+8*e23*mt**2*p1p2+
     $     16*e234*mt**2*p1p2+8*e24*mt**2*p1p2-8*e12*p1p2**2-
     $     8*e212*p1p2**2-8*e22*p1p2**2-8*e223*p1p2**2-
     $     8*e224*p1p2**2-4*d0*p1p3-4*d11*p1p3-4*d13*p1p3-
     $     8*e11*mt**2*p1p3-8*e13*mt**2*p1p3-8*e14*mt**2*p1p3-
     $     8*e212*mt**2*p1p3-8*e214*mt**2*p1p3-8*e223*mt**2*p1p3-
     $     8*e224*mt**2*p1p3-8*e234*mt**2*p1p3-8*e24*mt**2*p1p3+
     $     8*e12*p1p2*p1p3+8*e22*p1p2*p1p3+
     $     8*e224*p1p2*p1p3-4*d12*p1p4-4*d13*p1p4-
     $     8*e213*mt**2*p1p4-8*e214*mt**2*p1p4-8*e23*mt**2*p1p4-
     $     16*e234*mt**2*p1p4-8*e24*mt**2*p1p4+
     $     8*e12*p1p2*p1p4+8*e212*p1p2*p1p4+
     $     8*e22*p1p2*p1p4+16*e223*p1p2*p1p4+
     $     16*e224*p1p2*p1p4-8*e224*p1p3*p1p4-
     $     8*e223*p1p4**2-8*e224*p1p4**2+4*d0*p2p3+
     $     4*d11*p2p3+4*d13*p2p3-8*e21*mt**2*p2p3-
     $     16*e213*mt**2*p2p3-8*e214*mt**2*p2p3-8*e23*mt**2*p2p3-
     $     8*e234*mt**2*p2p3-8*e14*p1p2*p2p3+
     $     8*e212*p1p2*p2p3-8*e214*p1p2*p2p3+
     $     8*e223*p1p2*p2p3-8*e224*p1p2*p2p3-
     $     8*e234*p1p2*p2p3-8*e24*p1p2*p2p3+
     $     8*e14*p1p3*p2p3+8*e224*p1p3*p2p3+
     $     8*e24*p1p3*p2p3-16*e212*p1p4*p2p3-
     $     16*e223*p1p4*p2p3-8*e224*p1p4*p2p3+
     $     8*e234*p1p4*p2p3+8*e24*p1p4*p2p3+
     $     8*e214*p2p3**2+8*e234*p2p3**2+4*d12*p2p4+
     $     4*d13*p2p4+8*e213*mt**2*p2p4+8*e214*mt**2*p2p4+
     $     8*e23*mt**2*p2p4+16*e234*mt**2*p2p4+8*e24*mt**2*p2p4-
     $     8*e0*p1p2*p2p4-16*e11*p1p2*p2p4-
     $     8*e12*p1p2*p2p4-24*e13*p1p2*p2p4-
     $     24*e14*p1p2*p2p4-8*e21*p1p2*p2p4-
     $     8*e212*p1p2*p2p4-24*e213*p1p2*p2p4-
     $     24*e214*p1p2*p2p4-24*e223*p1p2*p2p4-
     $     24*e224*p1p2*p2p4-16*e23*p1p2*p2p4-
     $     32*e234*p1p2*p2p4-16*e24*p1p2*p2p4+
     $     8*e13*p1p3*p2p4+16*e14*p1p3*p2p4+
     $     16*e212*p1p3*p2p4+8*e214*p1p3*p2p4+
     $     24*e223*p1p3*p2p4+24*e224*p1p3*p2p4+
     $     16*e234*p1p3*p2p4+16*e24*p1p3*p2p4+
     $     8*e13*p1p4*p2p4+8*e14*p1p4*p2p4+
     $     8*e213*p1p4*p2p4+8*e214*p1p4*p2p4+
     $     8*e223*p1p4*p2p4+8*e224*p1p4*p2p4+
     $     16*e23*p1p4*p2p4+32*e234*p1p4*p2p4+
     $     16*e24*p1p4*p2p4-8*e14*p2p3*p2p4+
     $     8*e213*p2p3*p2p4+8*e23*p2p3*p2p4-
     $     8*e234*p2p3*p2p4-16*e24*p2p3*p2p4-
     $     8*e13*p2p4**2-8*e14*p2p4**2-8*e213*p2p4**2-
     $     8*e214*p2p4**2-16*e23*p2p4**2-32*e234*p2p4**2-
     $     16*e24*p2p4**2-4*d0*p3p4+4*d12*p3p4+4*d13*p3p4+
     $     8*e213*mt**2*p3p4+8*e214*mt**2*p3p4+8*e23*mt**2*p3p4+
     $     16*e234*mt**2*p3p4+8*e24*mt**2*p3p4+
     $     8*e14*p1p2*p3p4+8*e214*p1p2*p3p4-
     $     8*e223*p1p2*p3p4+8*e234*p1p2*p3p4+
     $     8*e24*p1p2*p3p4-8*e14*p1p3*p3p4-
     $     8*e24*p1p3*p3p4+16*e223*p1p4*p3p4+
     $     16*e224*p1p4*p3p4-8*e234*p1p4*p3p4-
     $     8*e24*p1p4*p3p4-16*e214*p2p3*p3p4-
     $     24*e234*p2p3*p3p4-16*e24*p2p3*p3p4+
     $     8*e13*p2p4*p3p4+8*e14*p2p4*p3p4-
     $     8*e23*p2p4*p3p4-8*e234*p2p4*p3p4+
     $     16*e234*p3p4**2+16*e24*p3p4**2)
      kmv(6)=(4*d0-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+4*e0*p1p2+4*e11*p1p2+
     $     4*e12*p1p2+4*e13*p1p2+4*e14*p1p2+8*e223*p1p2+
     $     8*e224*p1p2-8*e224*p1p3-8*e223*p1p4-8*e224*p1p4+
     $     8*e214*p2p3+16*e234*p2p3+16*e24*p2p3+8*e213*p2p4+
     $     8*e214*p2p4+16*e23*p2p4+32*e234*p2p4+16*e24*p2p4-
     $     16*e234*p3p4-16*e24*p3p4)
      kmv(7)=(4*d12*mt+4*d13*mt+8*e213*mt**3+8*e214*mt**3+8*e23*mt**3+
     $     16*e234*mt**3+8*e24*mt**3-8*e223*mt*p1p2-8*e224*mt*p1p2-
     $     4*e11*mt*p1p3-4*e13*mt*p1p3-4*e14*mt*p1p3+
     $     8*e212*mt*p1p3-8*e22*mt*p1p3+8*e223*mt*p1p3+
     $     8*e224*mt*p1p3+8*e223*mt*p1p4+8*e224*mt*p1p4-
     $     4*e12*mt*p2p3-8*e21*mt*p2p3+8*e212*mt*p2p3-
     $     16*e213*mt*p2p3-16*e214*mt*p2p3+8*e223*mt*p2p3+
     $     8*e224*mt*p2p3-8*e23*mt*p2p3-24*e234*mt*p2p3-
     $     16*e24*mt*p2p3-8*e13*mt*p2p4-8*e14*mt*p2p4-
     $     8*e213*mt*p2p4-8*e214*mt*p2p4-16*e23*mt*p2p4-
     $     32*e234*mt*p2p4-16*e24*mt*p2p4+4*e13*mt*p3p4+
     $     4*e14*mt*p3p4+8*e213*mt*p3p4+8*e214*mt*p3p4-
     $     8*e223*mt*p3p4-8*e224*mt*p3p4+8*e23*mt*p3p4+
     $     24*e234*mt*p3p4+16*e24*mt*p3p4)
      kmv(8)=(6*d0*mt+8*d11*mt+4*d13*mt+4*e11*mt**3+4*e13*mt**3+
     $     4*e14*mt**3-8*e21*mt**3+8*e212*mt**3-16*e213*mt**3-
     $     8*e214*mt**3+8*e223*mt**3+8*e224*mt**3-8*e23*mt**3-
     $     8*e234*mt**3-4*e12*mt*p1p2+8*e212*mt*p1p2-
     $     8*e22*mt*p1p2+8*e223*mt*p1p2+4*e11*mt*p1p4+
     $     4*e13*mt*p1p4+4*e14*mt*p1p4-8*e212*mt*p1p4+
     $     8*e22*mt*p1p4-8*e223*mt*p1p4-4*e14*mt*p2p3+
     $     8*e214*mt*p2p3-8*e224*mt*p2p3+8*e234*mt*p2p3+
     $     4*e12*mt*p2p4-4*e13*mt*p2p4-12*e14*mt*p2p4+
     $     8*e21*mt*p2p4-8*e212*mt*p2p4+24*e213*mt*p2p4+
     $     16*e214*mt*p2p4-16*e223*mt*p2p4-16*e224*mt*p2p4+
     $     16*e23*mt*p2p4+16*e234*mt*p2p4+4*e14*mt*p3p4-
     $     8*e214*mt*p3p4+8*e224*mt*p3p4-8*e234*mt*p3p4)
      kmv(10)=(4*e12*mt-8*e14*mt+8*e21*mt-8*e212*mt+16*e213*mt+
     $     8*e214*mt-8*e223*mt-8*e224*mt+8*e23*mt+8*e234*mt)
      kmv(11)=(4*e11*mt+4*e13*mt+4*e14*mt-8*e212*mt+8*e22*mt-8*e223*mt)
      kmv(13)=(-4*e12*mt+8*e13*mt+8*e14*mt-8*e21*mt+8*e212*mt-
     $     8*e213*mt-8*e214*mt+8*e223*mt+8*e224*mt)
      kmv(14)=(-4*e11*mt-4*e13*mt-4*e14*mt+8*e212*mt-8*e22*mt)
      kmv(16)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+8*e0*p1p2+16*e11*p1p2+
     $     8*e12*p1p2+16*e13*p1p2+16*e14*p1p2+8*e21*p1p2+
     $     8*e212*p1p2+16*e213*p1p2+16*e214*p1p2+
     $     16*e223*p1p2+16*e224*p1p2+8*e23*p1p2+
     $     16*e234*p1p2+8*e24*p1p2-8*e14*p1p3-16*e212*p1p3-
     $     8*e214*p1p3-16*e223*p1p3-16*e224*p1p3-
     $     8*e234*p1p3-8*e24*p1p3-8*e223*p1p4-8*e224*p1p4+
     $     8*e14*p2p3+8*e214*p2p3+16*e234*p2p3+16*e24*p2p3+
     $     8*e13*p2p4+8*e14*p2p4+8*e213*p2p4+8*e214*p2p4+
     $     16*e23*p2p4+32*e234*p2p4+16*e24*p2p4-8*e13*p3p4-
     $     8*e14*p3p4-8*e213*p3p4-8*e214*p3p4-8*e23*p3p4-
     $     24*e234*p3p4-16*e24*p3p4)
      kmv(17)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+
     $     16*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e212*p1p2-
     $     8*e22*p1p2-16*e223*p1p2-16*e224*p1p2+8*e224*p1p3+
     $     8*e223*p1p4+8*e224*p1p4+16*e212*p2p3+
     $     16*e223*p2p3+8*e224*p2p3-8*e234*p2p3-8*e24*p2p3-
     $     8*e13*p2p4-8*e14*p2p4-8*e213*p2p4-8*e214*p2p4-
     $     16*e23*p2p4-32*e234*p2p4-16*e24*p2p4-8*e223*p3p4-
     $     8*e224*p3p4+8*e234*p3p4+8*e24*p3p4)
      kmv(19)=(-4*d12-4*d13-8*e213*mt**2-8*e214*mt**2-8*e23*mt**2-
     $     16*e234*mt**2-8*e24*mt**2+8*e223*p1p2+8*e224*p1p2-
     $     8*e13*p1p3-8*e14*p1p3-16*e212*p1p3-8*e213*p1p3-
     $     8*e214*p1p3-16*e223*p1p3-16*e224*p1p3-8*e23*p1p3-
     $     16*e234*p1p3-8*e24*p1p3-8*e223*p1p4-8*e224*p1p4+
     $     8*e13*p2p3+8*e14*p2p3+8*e213*p2p3+8*e214*p2p3+
     $     8*e23*p2p3+24*e234*p2p3+16*e24*p2p3+8*e13*p2p4+
     $     8*e14*p2p4+8*e213*p2p4+8*e214*p2p4+16*e23*p2p4+
     $     32*e234*p2p4+16*e24*p2p4-8*e13*p3p4-8*e14*p3p4-
     $     8*e213*p3p4-8*e214*p3p4-8*e23*p3p4-24*e234*p3p4-
     $     16*e24*p3p4)
      kmv(20)=(4*d12+4*d13+8*e213*mt**2+8*e214*mt**2+8*e23*mt**2+
     $     16*e234*mt**2+8*e24*mt**2-8*e223*p1p2-8*e224*p1p2+
     $     8*e223*p1p3+8*e224*p1p3+8*e223*p1p4+8*e224*p1p4+
     $     16*e212*p2p3+8*e223*p2p3+8*e224*p2p3-8*e234*p2p3-
     $     8*e24*p2p3-8*e13*p2p4-8*e14*p2p4-8*e213*p2p4-
     $     8*e214*p2p4-16*e23*p2p4-32*e234*p2p4-16*e24*p2p4-
     $     8*e223*p3p4-8*e224*p3p4+8*e234*p3p4+8*e24*p3p4)
      kmv(22)=(-4*d0-4*d11-4*d13+8*e21*mt**2+16*e213*mt**2+
     $     8*e214*mt**2+8*e23*mt**2+8*e234*mt**2-8*e212*p1p2-
     $     8*e223*p1p2+8*e14*p1p4+16*e212*p1p4+8*e214*p1p4+
     $     16*e223*p1p4+8*e224*p1p4+8*e234*p1p4+8*e24*p1p4-
     $     8*e214*p2p3-8*e234*p2p3-8*e213*p2p4-8*e214*p2p4-
     $     8*e23*p2p4-8*e234*p2p4+8*e214*p3p4+8*e234*p3p4)
      kmv(23)=(4*d0+4*d11+4*d13+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+
     $     8*e212*mt**2+8*e214*mt**2+8*e223*mt**2+8*e224*mt**2+
     $     8*e234*mt**2+8*e24*mt**2-8*e12*p1p2-8*e22*p1p2-
     $     8*e224*p1p2-8*e14*p2p3-8*e224*p2p3-8*e24*p2p3-
     $     8*e13*p2p4-16*e14*p2p4-16*e212*p2p4-8*e214*p2p4-
     $     24*e223*p2p4-16*e224*p2p4-16*e234*p2p4-
     $     16*e24*p2p4+8*e14*p3p4+8*e224*p3p4+8*e24*p3p4)
      kmv(25)=(-4*d0-4*d11-4*d13+8*e21*mt**2+16*e213*mt**2+
     $     8*e214*mt**2+8*e23*mt**2+8*e234*mt**2-8*e0*p1p2-
     $     16*e11*p1p2-8*e12*p1p2-16*e13*p1p2-16*e14*p1p2-
     $     8*e21*p1p2-16*e212*p1p2-16*e213*p1p2-
     $     16*e214*p1p2-16*e223*p1p2-8*e224*p1p2-8*e23*p1p2-
     $     16*e234*p1p2-8*e24*p1p2+8*e13*p1p4+8*e14*p1p4+
     $     16*e212*p1p4+8*e213*p1p4+8*e214*p1p4+
     $     16*e223*p1p4+8*e224*p1p4+8*e23*p1p4+16*e234*p1p4+
     $     8*e24*p1p4-8*e214*p2p3-8*e234*p2p3-8*e13*p2p4-
     $     16*e213*p2p4-8*e214*p2p4-16*e23*p2p4-
     $     16*e234*p2p4+8*e214*p3p4+8*e234*p3p4)
      kmv(26)=(4*d0+4*d11+4*d13+8*e11*mt**2+8*e13*mt**2+8*e14*mt**2+
     $     8*e212*mt**2+8*e214*mt**2+8*e223*mt**2+8*e224*mt**2+
     $     8*e234*mt**2+8*e24*mt**2+8*e212*p1p2+8*e223*p1p2-
     $     8*e223*p1p4-8*e14*p2p3-8*e224*p2p3-8*e24*p2p3-
     $     8*e13*p2p4-16*e14*p2p4-16*e212*p2p4-8*e214*p2p4-
     $     16*e223*p2p4-16*e224*p2p4-16*e234*p2p4-
     $     16*e24*p2p4+8*e14*p3p4+8*e224*p3p4+8*e24*p3p4)
      kmv(28)=(8*e11*mt**3+8*e13*mt**3+8*e14*mt**3+8*e21*mt**3+
     $     8*e212*mt**3+16*e213*mt**3+16*e214*mt**3+8*e223*mt**3+
     $     8*e224*mt**3+8*e23*mt**3+16*e234*mt**3+8*e24*mt**3-
     $     8*e12*mt*p1p2-8*e212*mt*p1p2-8*e22*mt*p1p2-
     $     8*e223*mt*p1p2-8*e224*mt*p1p2+8*e11*mt*p1p4+
     $     8*e13*mt*p1p4+8*e14*mt*p1p4+8*e21*mt*p1p4+
     $     16*e213*mt*p1p4+16*e214*mt*p1p4+8*e22*mt*p1p4+
     $     8*e23*mt*p1p4+16*e234*mt*p1p4+8*e24*mt*p1p4-
     $     8*e14*mt*p2p3-8*e214*mt*p2p3-8*e224*mt*p2p3-
     $     8*e234*mt*p2p3-8*e24*mt*p2p3-8*e13*mt*p2p4-
     $     8*e14*mt*p2p4-8*e213*mt*p2p4-8*e214*mt*p2p4-
     $     8*e223*mt*p2p4-8*e224*mt*p2p4-8*e23*mt*p2p4-
     $     16*e234*mt*p2p4-8*e24*mt*p2p4+8*e14*mt*p3p4-
     $     8*e21*mt*p3p4+8*e212*mt*p3p4-16*e213*mt*p3p4-
     $     8*e214*mt*p3p4+8*e223*mt*p3p4+16*e224*mt*p3p4-
     $     8*e23*mt*p3p4-8*e234*mt*p3p4)
      kmv(29)=(-4*d0*mt-8*d11*mt+8*e21*mt**3-8*e212*mt**3+
     $     16*e213*mt**3+16*e214*mt**3-8*e223*mt**3-8*e224*mt**3+
     $     8*e23*mt**3+16*e234*mt**3+8*e24*mt**3-8*e212*mt*p1p2+
     $     8*e22*mt*p1p2-8*e223*mt*p1p2-8*e224*mt*p1p2-
     $     8*e214*mt*p2p3+8*e224*mt*p2p3-8*e234*mt*p2p3-
     $     8*e24*mt*p2p3-8*e11*mt*p2p4-8*e13*mt*p2p4-
     $     8*e14*mt*p2p4-8*e21*mt*p2p4-24*e213*mt*p2p4-
     $     24*e214*mt*p2p4-8*e22*mt*p2p4+8*e223*mt*p2p4+
     $     8*e224*mt*p2p4-16*e23*mt*p2p4-32*e234*mt*p2p4-
     $     16*e24*mt*p2p4+8*e212*mt*p3p4+8*e214*mt*p3p4-
     $     8*e22*mt*p3p4+8*e223*mt*p3p4+8*e234*mt*p3p4+
     $     8*e24*mt*p3p4)
      kmv(31)=(-4*d11*mt-8*e212*mt**3-8*e223*mt**3-8*e224*mt**3+
     $     8*e22*mt*p1p2+8*e11*mt*p1p3+8*e13*mt*p1p3+
     $     8*e14*mt*p1p3+8*e21*mt*p1p3+16*e213*mt*p1p3+
     $     16*e214*mt*p1p3+8*e23*mt*p1p3+16*e234*mt*p1p3+
     $     8*e24*mt*p1p3-8*e22*mt*p1p4+8*e12*mt*p2p3+
     $     8*e212*mt*p2p3+8*e223*mt*p2p3+16*e224*mt*p2p3+
     $     8*e12*mt*p2p4+8*e212*mt*p2p4+16*e223*mt*p2p4+
     $     16*e224*mt*p2p4-8*e13*mt*p3p4-8*e14*mt*p3p4+
     $     8*e21*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4+
     $     8*e214*mt*p3p4-8*e223*mt*p3p4-16*e224*mt*p3p4)
      kmv(32)=(4*d0*mt+4*d11*mt-8*e21*mt**3-16*e213*mt**3-
     $     16*e214*mt**3-8*e23*mt**3-16*e234*mt**3-8*e24*mt**3+
     $     8*e212*mt*p1p2+8*e223*mt*p1p2+8*e224*mt*p1p2-
     $     8*e212*mt*p1p3-8*e223*mt*p1p3-8*e224*mt*p1p3-
     $     8*e212*mt*p1p4-8*e223*mt*p1p4-8*e224*mt*p1p4+
     $     8*e214*mt*p2p3-8*e22*mt*p2p3+8*e234*mt*p2p3+
     $     8*e24*mt*p2p3+8*e11*mt*p2p4+8*e13*mt*p2p4+
     $     8*e14*mt*p2p4+8*e21*mt*p2p4+24*e213*mt*p2p4+
     $     24*e214*mt*p2p4+16*e23*mt*p2p4+32*e234*mt*p2p4+
     $     16*e24*mt*p2p4-8*e212*mt*p3p4-8*e214*mt*p3p4+
     $     8*e22*mt*p3p4-8*e234*mt*p3p4-8*e24*mt*p3p4)
      kmv(37)=(-8*e13-8*e213-8*e23-8*e234)
      kmv(38)=(8*e13+8*e14+16*e212+8*e213+8*e214+16*e223+8*e224+
     $     8*e23+16*e234+8*e24)
      kmv(40)=(-8*e14-16*e212-8*e214-8*e223-8*e224-8*e234-8*e24)
      kmv(41)=-8*e223
      kmv(46)=(-8*e12*mt+16*e13*mt+16*e14*mt-8*e212*mt+32*e213*mt+
     $     32*e214*mt-8*e223*mt-8*e224*mt+32*e23*mt+
     $     64*e234*mt+32*e24*mt)
      kmv(47)=(8*e22*mt-16*e223*mt-16*e224*mt)
      kmv(49)=(-8*e11*mt-8*e13*mt-8*e14*mt-8*e21*mt-16*e213*mt-
     $     16*e214*mt-16*e223*mt-16*e224*mt-8*e23*mt-
     $     16*e234*mt-8*e24*mt)
      kmv(50)=(8*e212*mt+8*e223*mt+8*e224*mt)
      kmv(55)=(-8*e12*mt+16*e14*mt-8*e212*mt+32*e214*mt-8*e223*mt-
     $     8*e224*mt+32*e234*mt+32*e24*mt)
      kmv(56)=(-8*e11*mt-8*e13*mt-8*e14*mt-8*e21*mt-16*e213*mt-
     $     16*e214*mt-16*e224*mt-8*e23*mt-16*e234*mt-8*e24*mt)
      kmv(58)=(8*e22*mt-16*e224*mt)
      kmv(59)=(8*e212*mt+8*e223*mt+8*e224*mt)
      kmv(64)=(-8*d11+8*d21-16*e21*mt**2-32*e213*mt**2-32*e214*mt**2-
     $     16*e23*mt**2-32*e234*mt**2-16*e24*mt**2-16*e0*p1p2-
     $     48*e11*p1p2-16*e12*p1p2-48*e13*p1p2-48*e14*p1p2-
     $     48*e21*p1p2-16*e212*p1p2-96*e213*p1p2-
     $     96*e214*p1p2-16*e223*p1p2-16*e224*p1p2-
     $     48*e23*p1p2-96*e234*p1p2-48*e24*p1p2+16*e14*p1p3+
     $     32*e214*p1p3+32*e234*p1p3+32*e24*p1p3+
     $     16*e13*p1p4+16*e14*p1p4+32*e213*p1p4+
     $     32*e214*p1p4+32*e23*p1p4+64*e234*p1p4+
     $     32*e24*p1p4-16*e14*p2p3-16*e214*p2p3-
     $     16*e234*p2p3-16*e24*p2p3-16*e13*p2p4-16*e14*p2p4-
     $     16*e213*p2p4-16*e214*p2p4-16*e23*p2p4-
     $     32*e234*p2p4-16*e24*p2p4+16*e13*p3p4+16*e14*p3p4+
     $     16*e213*p3p4+16*e214*p3p4+16*e23*p3p4+
     $     32*e234*p3p4+16*e24*p3p4)
      kmv(65)=(-8*d11+8*d21+16*e12*p1p2+32*e212*p1p2+
     $     16*e22*p1p2+32*e223*p1p2+32*e224*p1p2-
     $     16*e224*p1p3-16*e223*p1p4-16*e224*p1p4+
     $     16*e224*p2p3+16*e223*p2p4+16*e224*p2p4-
     $     16*e212*p3p4-16*e223*p3p4-16*e224*p3p4)
      kmv(67)=(-8*d11+8*d21+16*e11*mt**2+16*e13*mt**2+16*e14*mt**2+
     $     16*e21*mt**2+16*e212*mt**2+32*e213*mt**2+32*e214*mt**2+
     $     16*e223*mt**2+16*e224*mt**2+16*e23*mt**2+32*e234*mt**2+
     $     16*e24*mt**2+16*e212*p1p2+16*e223*p1p2+16*e224*p1p2-
     $     16*e224*p1p3-16*e223*p1p4-16*e224*p1p4-
     $     16*e14*p2p3-16*e214*p2p3-16*e234*p2p3-
     $     16*e24*p2p3-16*e13*p2p4-16*e14*p2p4-16*e213*p2p4-
     $     16*e214*p2p4-16*e23*p2p4-32*e234*p2p4-
     $     16*e24*p2p4+16*e14*p3p4+16*e212*p3p4+
     $     16*e214*p3p4+16*e234*p3p4+16*e24*p3p4)
      kmv(68)=(-8*d11+8*d21-16*e212*mt**2-16*e223*mt**2-16*e224*mt**2+
     $     16*e224*p2p3+16*e223*p2p4+16*e224*p2p4-16*e224*p3p4)

      kmv(46)=kmv(46)+
     $     (16*e313*mt+64*e3134*mt+16*e314*mt+16*e33*mt+32*e331*mt+
     $     48*e334*mt+16*e34*mt+32*e341*mt+48*e343*mt)
      kmv(47)=kmv(47)+
     $     (-16*e3123*mt-16*e3124*mt-32*e3234*mt-16*e332*mt-
     $     16*e342*mt)
      kmv(49)=kmv(49)+
     $     (-16*e3123*mt-16*e3124*mt-32*e3234*mt-16*e332*mt-
     $     16*e342*mt)
      kmv(50)=kmv(50)+(16*e323*mt+16*e324*mt)
      kmv(55)=kmv(55)+
     $     (32*e3134*mt+16*e314*mt+16*e334*mt+16*e34*mt+32*e341*mt+
     $     32*e343*mt)
      kmv(56)=kmv(56)+(-16*e3124*mt-16*e3234*mt-16*e342*mt)
      kmv(58)=kmv(58)+(-16*e3124*mt-16*e3234*mt-16*e342*mt)
      kmv(59)=kmv(59)+16*e324*mt
      kmv(64)=kmv(64)+
     $     (-16*e31*mt**2-48*e313*mt**2-96*e3134*mt**2-48*e314*mt**2-
     $     16*e33*mt**2-48*e331*mt**2-48*e334*mt**2-16*e34*mt**2-
     $     48*e341*mt**2-48*e343*mt**2-16*e31*p1p2-48*e313*p1p2-
     $     96*e3134*p1p2-48*e314*p1p2-16*e33*p1p2-
     $     48*e331*p1p2-48*e334*p1p2-16*e34*p1p2-
     $     48*e341*p1p2-48*e343*p1p2+32*e3134*p1p3+
     $     16*e314*p1p3+16*e334*p1p3+16*e34*p1p3+
     $     32*e341*p1p3+32*e343*p1p3+16*e313*p1p4+
     $     64*e3134*p1p4+16*e314*p1p4+16*e33*p1p4+
     $     32*e331*p1p4+48*e334*p1p4+16*e34*p1p4+
     $     32*e341*p1p4+48*e343*p1p4)
      kmv(65)=kmv(65)+
     $     (16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+
     $     32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+
     $     32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+
     $     16*e332*p1p2+16*e342*p1p2-16*e3124*p1p3-
     $     16*e3234*p1p3-16*e342*p1p3-16*e3123*p1p4-
     $     16*e3124*p1p4-32*e3234*p1p4-16*e332*p1p4-
     $     16*e342*p1p4)
      kmv(67)=kmv(67)+
     $     (16*e312*mt**2+32*e3123*mt**2+32*e3124*mt**2+
     $     32*e3234*mt**2+16*e332*mt**2+16*e342*mt**2+16*e312*p1p2+
     $     32*e3123*p1p2+32*e3124*p1p2+32*e3234*p1p2+
     $     16*e332*p1p2+16*e342*p1p2-16*e3124*p1p3-
     $     16*e3234*p1p3-16*e342*p1p3-16*e3123*p1p4-
     $     16*e3124*p1p4-32*e3234*p1p4-16*e332*p1p4-
     $     16*e342*p1p4)
      kmv(68)=kmv(68)+
     $     (-16*e321*mt**2-16*e323*mt**2-16*e324*mt**2-
     $     16*e321*p1p2-16*e323*p1p2-16*e324*p1p2+
     $     16*e324*p1p3+16*e323*p1p4+16*e324*p1p4)
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp1_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j
      real*8 mt,mh,ncf,cg
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
c P1
      e1(0)=E0_ir(1,mt,0d0,mt**2,mh**2,mt**2,0d0,mt**2-2d0*p2p4,
     $     mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4,
     $     mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,mt**2-2d0*p1p3,
     $     2d0*p3p4,0d0,0d0,mt,mt,0d0)
      call eefunc_ir(1,mt,0d0,0d0,mt**2-2d0*p2p4,
     $     mt**2-2d0*p1p3,-p3p4,-p2p4,p1p4-p3p4,p2p3-p3p4,-p1p3,
     $     p1p4-p3p4-p1p2+p2p3,
     $     0d0,0d0,0d0,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
c      if(mt.gt.0d0) goto 99
      kmv(1)=(12*d20+2*d12*mt**2+2*d13*mt**2+d22*mt**2+d23*mt**2+
     $     4*e234*mt**4-2*d12*p1p2-2*d13*p1p2-2*d223*p1p2-
     $     4*e23*mt**2*p1p2-4*e24*mt**2*p1p2+4*e234*p1p2**2+
     $     2*d0*p1p3-2*d11*p1p3-2*d213*p1p3-2*d23*p1p3+
     $     4*e13*mt**2*p1p3-4*e223*mt**2*p1p3-4*e14*p1p2*p1p3+
     $     4*e224*p1p2*p1p3-2*d0*p1p4-2*d11*p1p4-
     $     2*d13*p1p4-2*d213*p1p4-2*d23*p1p4+
     $     4*e213*mt**2*p1p4+4*e23*mt**2*p1p4+4*e24*mt**2*p1p4-
     $     4*e214*p1p2*p1p4-8*e234*p1p2*p1p4+
     $     4*e14*p1p3*p1p4-4*e224*p1p3*p1p4+
     $     4*e214*p1p4**2+4*e234*p1p4**2+2*d11*p2p3+
     $     2*d12*p2p3+2*d13*p2p3+2*d212*p2p3+2*d223*p2p3+
     $     4*e224*mt**2*p2p3+4*e23*mt**2*p2p3+4*e24*mt**2*p2p3-
     $     4*e223*p1p2*p2p3-8*e234*p1p2*p2p3+
     $     4*e12*p1p3*p2p3+4*e14*p1p3*p2p3-
     $     4*e22*p1p3*p2p3-4*e224*p1p3*p2p3+
     $     4*e212*p1p4*p2p3+4*e214*p1p4*p2p3+
     $     4*e223*p1p4*p2p3+8*e234*p1p4*p2p3+
     $     4*e223*p2p3**2+4*e234*p2p3**2+4*d0*p2p4+
     $     2*d11*p2p4+4*d12*p2p4+2*d13*p2p4+2*d212*p2p4+
     $     2*d223*p2p4+4*e14*mt**2*p2p4-4*e214*mt**2*p2p4-
     $     4*e13*p1p2*p2p4+4*e213*p1p2*p2p4+
     $     4*e0*p1p3*p2p4-4*e11*p1p3*p2p4-
     $     4*e12*p1p3*p2p4+4*e212*p1p3*p2p4-
     $     16*e234*p1p3*p2p4+4*e11*p1p4*p2p4+
     $     4*e13*p1p4*p2p4-4*e21*p1p4*p2p4-
     $     4*e213*p1p4*p2p4+4*e13*p2p3*p2p4-
     $     4*e213*p2p3*p2p4+2*d0*p3p4+2*d11*p3p4+
     $     2*d13*p3p4+2*d21*p3p4+4*d213*p3p4+2*d23*p3p4-
     $     4*e213*mt**2*p3p4-4*e224*mt**2*p3p4-4*e23*mt**2*p3p4-
     $     4*e24*mt**2*p3p4+4*e214*p1p2*p3p4+
     $     4*e223*p1p2*p3p4+8*e234*p1p2*p3p4-
     $     4*e12*p1p3*p3p4-4*e14*p1p3*p3p4+
     $     4*e22*p1p3*p3p4+4*e224*p1p3*p3p4-
     $     4*e212*p1p4*p3p4-8*e214*p1p4*p3p4-
     $     4*e223*p1p4*p3p4-8*e234*p1p4*p3p4-
     $     4*e212*p2p3*p3p4-4*e214*p2p3*p3p4-
     $     8*e223*p2p3*p3p4-8*e234*p2p3*p3p4-
     $     4*e11*p2p4*p3p4-4*e13*p2p4*p3p4+
     $     4*e21*p2p4*p3p4+4*e213*p2p4*p3p4+
     $     4*e212*p3p4**2+4*e214*p3p4**2+4*e223*p3p4**2+
     $     4*e234*p3p4**2)
      kmv(2)=(-6*d0+4*e213*mt**2+4*e224*mt**2+4*e23*mt**2+4*e24*mt**2-
     $     4*e214*p1p2-4*e223*p1p2-8*e234*p1p2+4*e12*p1p3+
     $     4*e14*p1p3-4*e22*p1p3-12*e224*p1p3-8*e24*p1p3+
     $     4*e212*p1p4+8*e214*p1p4+4*e223*p1p4+8*e234*p1p4+
     $     4*e212*p2p3+4*e214*p2p3+8*e223*p2p3+8*e234*p2p3+
     $     4*e11*p2p4+4*e13*p2p4-4*e21*p2p4-12*e213*p2p4-
     $     8*e23*p2p4-8*e212*p3p4-8*e214*p3p4-8*e223*p3p4-
     $     8*e234*p3p4)
      kmv(3)=(-2*d12*mt+2*d13*mt-4*e234*mt**3+4*e24*mt**3+
     $     4*e23*mt*p1p2-4*e234*mt*p1p2-4*e13*mt*p1p3+
     $     4*e14*mt*p1p3+4*e223*mt*p1p3-4*e224*mt*p1p3+
     $     8*e234*mt*p1p3-8*e24*mt*p1p3-4*e213*mt*p1p4+
     $     4*e214*mt*p1p4-4*e23*mt*p1p4+4*e234*mt*p1p4-
     $     4*e23*mt*p2p3+4*e234*mt*p2p3+4*e213*mt*p3p4-
     $     4*e214*mt*p3p4+4*e23*mt*p3p4-4*e234*mt*p3p4)
      kmv(4)=(-2*d12*mt+2*d13*mt-4*e23*mt**3+4*e234*mt**3+
     $     4*e234*mt*p1p2-4*e24*mt*p1p2-4*e234*mt*p1p4+
     $     4*e24*mt*p1p4-4*e223*mt*p2p3+4*e224*mt*p2p3-
     $     4*e234*mt*p2p3+4*e24*mt*p2p3-4*e13*mt*p2p4+
     $     4*e14*mt*p2p4+4*e213*mt*p2p4-4*e214*mt*p2p4+
     $     8*e23*mt*p2p4-8*e234*mt*p2p4+4*e223*mt*p3p4-
     $     4*e224*mt*p3p4+4*e234*mt*p3p4-4*e24*mt*p3p4)
      kmv(5)=(6*d20+d22*mt**2+d23*mt**2-2*d223*p1p2-4*d13*p1p3-
     $     2*d213*p1p3-2*d23*p1p3+4*e24*p1p3**2-2*d213*p1p4-
     $     2*d23*p1p4-4*e24*p1p3*p1p4+2*d12*p2p3+
     $     2*d212*p2p3+2*d223*p2p3-4*e234*p1p3*p2p3-
     $     2*d12*p2p4+2*d212*p2p4+2*d223*p2p4+
     $     8*e234*p1p3*p2p4-4*e234*p1p4*p2p4-
     $     4*e23*p2p3*p2p4+4*e23*p2p4**2-2*d0*p3p4+
     $     2*d11*p3p4+2*d13*p3p4+2*d21*p3p4+4*d213*p3p4+
     $     2*d23*p3p4+8*e14*p1p3*p3p4+4*e214*p1p3*p3p4+
     $     4*e224*p1p3*p3p4+4*e234*p1p3*p3p4+
     $     4*e24*p1p3*p3p4+8*e13*p2p4*p3p4+
     $     4*e213*p2p4*p3p4+4*e223*p2p4*p3p4+
     $     4*e23*p2p4*p3p4+4*e234*p2p4*p3p4)
      kmv(6)=(2*e14*p1p3+2*e214*p1p3+2*e224*p1p3+
     $     2*e234*p1p3+2*e24*p1p3-2*e14*p1p4-2*e214*p1p4-
     $     2*e224*p1p4-2*e234*p1p4-2*e24*p1p4-2*e13*p2p3-
     $     2*e213*p2p3-2*e223*p2p3-2*e23*p2p3-2*e234*p2p3+
     $     2*e13*p2p4+2*e213*p2p4+2*e223*p2p4+2*e23*p2p4+
     $     2*e234*p2p4+4*e0*p3p4+6*e11*p3p4+6*e12*p3p4+
     $     6*e13*p3p4+6*e14*p3p4+2*e21*p3p4+4*e212*p3p4+
     $     4*e213*p3p4+4*e214*p3p4+2*e22*p3p4+4*e223*p3p4+
     $     4*e224*p3p4+2*e23*p3p4+4*e234*p3p4+2*e24*p3p4)
      kmv(7)=(-(d12*mt)+d13*mt+2*e234*mt*p1p3-2*e24*mt*p1p3-
     $     2*e234*mt*p1p4+2*e24*mt*p1p4-2*e23*mt*p2p3+
     $     2*e234*mt*p2p3+2*e23*mt*p2p4-2*e234*mt*p2p4+
     $     4*e13*mt*p3p4-4*e14*mt*p3p4+2*e213*mt*p3p4-
     $     2*e214*mt*p3p4+2*e223*mt*p3p4-2*e224*mt*p3p4+
     $     2*e23*mt*p3p4-2*e24*mt*p3p4)
      kmv(8)=(-(d12*mt)+d13*mt+2*e234*mt*p1p3-2*e24*mt*p1p3-
     $     2*e234*mt*p1p4+2*e24*mt*p1p4-2*e23*mt*p2p3+
     $     2*e234*mt*p2p3+2*e23*mt*p2p4-2*e234*mt*p2p4+
     $     4*e13*mt*p3p4-4*e14*mt*p3p4+2*e213*mt*p3p4-
     $     2*e214*mt*p3p4+2*e223*mt*p3p4-2*e224*mt*p3p4+
     $     2*e23*mt*p3p4-2*e24*mt*p3p4)
      kmv(10)=(8*e23*mt-8*e234*mt)
      kmv(11)=(-8*e234*mt+8*e24*mt)
      kmv(13)=(-8*e23*mt+8*e234*mt)
      kmv(14)=(8*e234*mt-8*e24*mt)
      kmv(16)=(10*d12+d212+d223+2*e234*mt**2-2*e23*p1p2-
     $     2*e13*p1p3-2*e213*p1p3-2*e223*p1p3-2*e23*p1p3-
     $     20*e234*p1p3+8*e13*p1p4+10*e213*p1p4+10*e23*p1p4+
     $     8*e234*p1p4+2*e23*p2p3-4*e213*p2p4-12*e23*p2p4-
     $     8*e13*p3p4-10*e213*p3p4-8*e223*p3p4-10*e23*p3p4-
     $     8*e234*p3p4)
      kmv(17)=(-2*d11-10*d13-d213-d23-2*e24*mt**2+2*e234*p1p2-
     $     2*e14*p1p3-2*e214*p1p3+2*e224*p1p3-2*e234*p1p3+
     $     16*e24*p1p3-4*e14*p1p4-6*e214*p1p4-6*e234*p1p4-
     $     4*e24*p1p4+4*e13*p2p3+4*e213*p2p3+4*e23*p2p3+
     $     2*e234*p2p3-4*e13*p2p4-4*e213*p2p4+4*e214*p2p4-
     $     4*e23*p2p4+8*e234*p2p4-8*e0*p3p4-12*e11*p3p4-
     $     4*e12*p3p4-12*e13*p3p4-4*e14*p3p4-4*e21*p3p4-
     $     4*e212*p3p4-8*e213*p3p4+2*e214*p3p4-4*e223*p3p4+
     $     4*e224*p3p4-4*e23*p3p4+2*e234*p3p4+4*e24*p3p4)
      kmv(19)=(2*d0+2*d11+d12+2*d13+d212+d223-4*e234*mt**2+
     $     4*e23*p1p2-4*e13*p1p3-4*e213*p1p3+4*e214*p1p3+
     $     4*e223*p1p3-4*e23*p1p3-4*e213*p1p4-4*e214*p1p4-
     $     4*e23*p1p4+4*e213*p2p3-4*e23*p2p3+2*e213*p2p4-
     $     2*e23*p2p4+8*e11*p3p4+4*e21*p3p4+4*e212*p3p4+
     $     8*e213*p3p4+4*e214*p3p4+4*e23*p3p4)
      kmv(20)=(d13-d213-d23+4*e24*mt**2-4*e234*p1p2+
     $     4*e14*p1p3+4*e214*p1p3-4*e224*p1p3+4*e234*p1p3+
     $     4*e214*p1p4+4*e234*p1p4-8*e214*p2p3+4*e234*p2p3+
     $     2*e214*p2p4+2*e234*p2p4-4*e214*p3p4-4*e234*p3p4)
      kmv(22)=(2*d12+d212+d223+4*e23*mt**2-4*e234*p1p2+
     $     2*e223*p1p3+2*e234*p1p3-8*e223*p1p4+4*e234*p1p4+
     $     4*e223*p2p3+4*e234*p2p3+4*e13*p2p4-4*e213*p2p4+
     $     4*e223*p2p4+4*e234*p2p4-4*e223*p3p4-4*e234*p3p4)
      kmv(23)=(-2*d11-2*d13-d213-d23-4*e234*mt**2+4*e24*p1p2+
     $     2*e224*p1p3-2*e24*p1p3+4*e224*p1p4-4*e24*p1p4-
     $     4*e223*p2p3-4*e224*p2p3-4*e24*p2p3-4*e14*p2p4+
     $     4*e214*p2p4+4*e223*p2p4-4*e224*p2p4-4*e24*p2p4+
     $     8*e12*p3p4+4*e212*p3p4+4*e22*p3p4+4*e223*p3p4+
     $     8*e224*p3p4+4*e24*p3p4)
      kmv(25)=(2*d0+2*d11-7*d12+2*d13+d212+d223-2*e23*mt**2+
     $     2*e234*p1p2-4*e14*p1p3+4*e223*p1p3-4*e224*p1p3+
     $     8*e234*p1p3-4*e24*p1p3+4*e14*p1p4+4*e224*p1p4+
     $     2*e234*p1p4+4*e24*p1p4-4*e13*p2p3-6*e223*p2p3-
     $     4*e23*p2p3-6*e234*p2p3-2*e13*p2p4+2*e213*p2p4-
     $     2*e223*p2p4+16*e23*p2p4-2*e234*p2p4-8*e0*p3p4-
     $     4*e11*p3p4-12*e12*p3p4-4*e13*p3p4-12*e14*p3p4-
     $     4*e212*p3p4+4*e213*p3p4-4*e214*p3p4-4*e22*p3p4+
     $     2*e223*p3p4-8*e224*p3p4+4*e23*p3p4+2*e234*p3p4-
     $     4*e24*p3p4)
      kmv(26)=(9*d13-d213-d23+2*e234*mt**2-2*e24*p1p2-
     $     4*e224*p1p3-12*e24*p1p3+2*e24*p1p4+8*e14*p2p3+
     $     10*e224*p2p3+8*e234*p2p3+10*e24*p2p3-2*e14*p2p4-
     $     2*e214*p2p4-2*e224*p2p4-20*e234*p2p4-2*e24*p2p4-
     $     8*e14*p3p4-8*e214*p3p4-10*e224*p3p4-8*e234*p3p4-
     $     10*e24*p3p4)
      kmv(28)=(-(d22*mt)+d223*mt-2*e23*mt*p1p3+2*e234*mt*p1p3+
     $     8*e23*mt*p1p4-8*e234*mt*p1p4-4*e23*mt*p2p4+
     $     4*e234*mt*p2p4-8*e23*mt*p3p4+8*e234*mt*p3p4)
      kmv(29)=(2*d12*mt-2*d13*mt+d223*mt-d23*mt-2*e234*mt*p1p3+
     $     2*e24*mt*p1p3-4*e234*mt*p1p4+4*e24*mt*p1p4+
     $     4*e23*mt*p2p3-4*e234*mt*p2p3-4*e23*mt*p2p4+
     $     8*e234*mt*p2p4-4*e24*mt*p2p4-8*e13*mt*p3p4+
     $     8*e14*mt*p3p4-4*e213*mt*p3p4+4*e214*mt*p3p4-
     $     4*e223*mt*p3p4+4*e224*mt*p3p4-4*e23*mt*p3p4+
     $     8*e234*mt*p3p4-4*e24*mt*p3p4)
      kmv(31)=(2*d12*mt-2*d13*mt+d22*mt-d223*mt+4*e23*mt*p1p3-
     $     8*e234*mt*p1p3+4*e24*mt*p1p3+4*e234*mt*p1p4-
     $     4*e24*mt*p1p4-4*e23*mt*p2p3+4*e234*mt*p2p3-
     $     2*e23*mt*p2p4+2*e234*mt*p2p4-8*e13*mt*p3p4+
     $     8*e14*mt*p3p4-4*e213*mt*p3p4+4*e214*mt*p3p4-
     $     4*e223*mt*p3p4+4*e224*mt*p3p4+4*e23*mt*p3p4-
     $     8*e234*mt*p3p4+4*e24*mt*p3p4)
      kmv(32)=(-(d223*mt)+d23*mt-4*e234*mt*p1p3+4*e24*mt*p1p3+
     $     8*e234*mt*p2p3-8*e24*mt*p2p3-2*e234*mt*p2p4+
     $     2*e24*mt*p2p4-8*e234*mt*p3p4+8*e24*mt*p3p4)
      kmv(37)=(-8*e13-8*e213-8*e223-8*e23-8*e234)
      kmv(38)=(8*e13+8*e14+8*e213+8*e224+8*e23+16*e234+8*e24)
      kmv(40)=(8*e214+8*e223)
      kmv(41)=(-8*e14-8*e214-8*e224-8*e234-8*e24)
      kmv(46)=(16*e23*mt-8*e234*mt)
      kmv(47)=(-16*e234*mt+8*e24*mt)
      kmv(49)=-8*e23*mt
      kmv(50)=8*e234*mt
      kmv(55)=-8*e234*mt
      kmv(56)=(-8*e23*mt+16*e234*mt)
      kmv(58)=8*e24*mt
      kmv(59)=(8*e234*mt-16*e24*mt)
      kmv(64)=(-6*d12+10*d22-12*e234*mt**2-4*e23*p1p2-
     $     4*e13*p1p3+12*e223*p1p3-4*e23*p1p3+8*e234*p1p3-
     $     16*e13*p1p4-12*e213*p1p4-12*e23*p1p4-
     $     16*e234*p1p4+4*e23*p2p3+16*e13*p3p4+12*e213*p3p4+
     $     16*e223*p3p4+12*e23*p3p4+16*e234*p3p4)
      kmv(65)=(-4*d0-2*d12-2*d13-12*d223+4*e23*mt**2+4*e24*mt**2+
     $     8*e234*p1p2+4*e14*p1p3-4*e224*p1p3+4*e234*p1p3+
     $     8*e14*p1p4+4*e214*p1p4+8*e24*p1p4+8*e13*p2p3+
     $     4*e223*p2p3+8*e23*p2p3+4*e13*p2p4-4*e213*p2p4+
     $     4*e234*p2p4+16*e0*p3p4+8*e11*p3p4+8*e12*p3p4+
     $     8*e13*p3p4+8*e14*p3p4-8*e213*p3p4+4*e214*p3p4+
     $     4*e223*p3p4-8*e224*p3p4-8*e23*p3p4-8*e234*p3p4-
     $     8*e24*p3p4)
      kmv(67)=(4*d12+4*d13-8*d223+8*e23*mt**2+8*e24*mt**2+
     $     8*e14*p1p3-8*e224*p1p3+8*e234*p1p3+8*e214*p1p4+
     $     8*e223*p2p3+8*e13*p2p4-8*e213*p2p4+8*e234*p2p4-
     $     8*e214*p3p4-8*e223*p3p4)
      kmv(68)=(-6*d13+10*d23-12*e234*mt**2-4*e24*p1p2+
     $     4*e24*p1p4-16*e14*p2p3-12*e224*p2p3-16*e234*p2p3-
     $     12*e24*p2p3-4*e14*p2p4+12*e214*p2p4+8*e234*p2p4-
     $     4*e24*p2p4+16*e14*p3p4+16*e214*p3p4+12*e224*p3p4+
     $     16*e234*p3p4+12*e24*p3p4)
 99   continue
c      if(mt.gt.0d0) goto 999
      kmv(16)=kmv(16)+
     $     (2*e3134*mt**2-4*e33*mt**2-4*e331*mt**2+2*e334*mt**2+
     $     4*e3134*p1p2-2*e33*p1p2-2*e331*p1p2+4*e334*p1p2-
     $     2*e3123*p1p3-4*e3134*p1p3-2*e332*p1p3-
     $     4*e334*p1p3+2*e313*p1p4-4*e3134*p1p4+2*e33*p1p4+
     $     4*e331*p1p4-4*e334*p1p4-4*e3123*p2p3-
     $     4*e3134*p2p3+2*e33*p2p3+2*e331*p2p3-4*e332*p2p3-
     $     4*e334*p2p3+4*e313*p2p4+8*e33*p2p4+12*e331*p2p4+
     $     4*e3123*p3p4-2*e313*p3p4+4*e3134*p3p4-2*e33*p3p4-
     $     4*e331*p3p4+4*e332*p3p4+4*e334*p3p4)
      kmv(17)=kmv(17)+
     $     (4*e3134*mt**2+4*e334*mt**2-2*e341*mt**2-2*e343*mt**2+
     $     2*e3134*p1p2+2*e334*p1p2-4*e341*p1p2-4*e343*p1p2+
     $     2*e3124*p1p3+2*e3234*p1p3+4*e341*p1p3+
     $     4*e343*p1p3-4*e3134*p1p4-2*e314*p1p4-2*e334*p1p4+
     $     4*e341*p1p4+4*e343*p1p4+4*e3124*p2p3-
     $     2*e3134*p2p3+4*e3234*p2p3-2*e334*p2p3+
     $     4*e341*p2p3+4*e343*p2p3-12*e3134*p2p4-
     $     4*e314*p2p4-8*e334*p2p4-4*e3124*p3p4+
     $     4*e3134*p3p4+2*e314*p3p4-4*e3234*p3p4+
     $     2*e334*p3p4-4*e341*p3p4-4*e343*p3p4)
      kmv(19)=kmv(19)+
     $     (-4*e3134*mt**2+2*e33*mt**2+2*e331*mt**2-4*e334*mt**2-
     $     2*e3134*p1p2+4*e33*p1p2+4*e331*p1p2-2*e334*p1p2+
     $     4*e3123*p1p3+8*e3134*p1p3+4*e332*p1p3+
     $     8*e334*p1p3-4*e313*p1p4+2*e3134*p1p4-4*e33*p1p4-
     $     8*e331*p1p4+2*e334*p1p4+2*e3123*p2p3+
     $     2*e3134*p2p3-4*e33*p2p3-4*e331*p2p3+2*e332*p2p3+
     $     2*e334*p2p3-2*e313*p2p4-4*e33*p2p4-6*e331*p2p4-
     $     2*e3123*p3p4+4*e313*p3p4-2*e3134*p3p4+4*e33*p3p4+
     $     8*e331*p3p4-2*e332*p3p4-2*e334*p3p4)
      kmv(20)=kmv(20)+
     $     (-2*e3134*mt**2-2*e334*mt**2+4*e341*mt**2+4*e343*mt**2-
     $     4*e3134*p1p2-4*e334*p1p2+2*e341*p1p2+2*e343*p1p2-
     $     4*e3124*p1p3-4*e3234*p1p3-8*e341*p1p3-
     $     8*e343*p1p3+8*e3134*p1p4+4*e314*p1p4+4*e334*p1p4-
     $     2*e341*p1p4-2*e343*p1p4-2*e3124*p2p3+
     $     4*e3134*p2p3-2*e3234*p2p3+4*e334*p2p3-
     $     2*e341*p2p3-2*e343*p2p3+6*e3134*p2p4+2*e314*p2p4+
     $     4*e334*p2p4+2*e3124*p3p4-8*e3134*p3p4-
     $     4*e314*p3p4+2*e3234*p3p4-4*e334*p3p4+2*e341*p3p4+
     $     2*e343*p3p4)
      kmv(22)=kmv(22)+
     $     (-2*e3234*mt**2+4*e332*mt**2+4*e334*mt**2-2*e343*mt**2-
     $     4*e3234*p1p2+2*e332*p1p2+2*e334*p1p2-4*e343*p1p2+
     $     2*e323*p1p3+6*e3234*p1p3+4*e343*p1p3-
     $     2*e3123*p1p4-2*e3134*p1p4+4*e3234*p1p4-
     $     2*e332*p1p4-2*e334*p1p4+4*e343*p1p4+4*e323*p2p3+
     $     8*e3234*p2p3-2*e332*p2p3-2*e334*p2p3+4*e343*p2p3-
     $     4*e3123*p2p4-4*e3134*p2p4-8*e332*p2p4-
     $     8*e334*p2p4+2*e3123*p3p4+2*e3134*p3p4-
     $     4*e323*p3p4-8*e3234*p3p4+2*e332*p3p4+2*e334*p3p4-
     $     4*e343*p3p4)
      kmv(23)=kmv(23)+
     $     (-4*e3234*mt**2+2*e34*mt**2+2*e342*mt**2-4*e343*mt**2-
     $     2*e3234*p1p2+4*e34*p1p2+4*e342*p1p2-2*e343*p1p2-
     $     2*e324*p1p3-4*e34*p1p3-6*e342*p1p3+2*e3124*p1p4+
     $     2*e3234*p1p4-4*e34*p1p4+2*e341*p1p4-4*e342*p1p4+
     $     2*e343*p1p4+2*e3234*p2p3-4*e324*p2p3-4*e34*p2p3-
     $     8*e342*p2p3+2*e343*p2p3+4*e3124*p2p4+
     $     8*e3234*p2p4+4*e341*p2p4+8*e343*p2p4-
     $     2*e3124*p3p4-2*e3234*p3p4+4*e324*p3p4+4*e34*p3p4-
     $     2*e341*p3p4+8*e342*p3p4-2*e343*p3p4)
      kmv(25)=kmv(25)+
     $     (4*e3234*mt**2-2*e332*mt**2-2*e334*mt**2+4*e343*mt**2+
     $     2*e3234*p1p2-4*e332*p1p2-4*e334*p1p2+2*e343*p1p2-
     $     4*e323*p1p3-12*e3234*p1p3-8*e343*p1p3+
     $     4*e3123*p1p4+4*e3134*p1p4-2*e3234*p1p4+
     $     4*e332*p1p4+4*e334*p1p4-2*e343*p1p4-2*e323*p2p3-
     $     4*e3234*p2p3+4*e332*p2p3+4*e334*p2p3-2*e343*p2p3+
     $     2*e3123*p2p4+2*e3134*p2p4+4*e332*p2p4+
     $     4*e334*p2p4-4*e3123*p3p4-4*e3134*p3p4+
     $     2*e323*p3p4+4*e3234*p3p4-4*e332*p3p4-4*e334*p3p4+
     $     2*e343*p3p4)
      kmv(26)=kmv(26)+
     $     (2*e3234*mt**2-4*e34*mt**2-4*e342*mt**2+2*e343*mt**2+
     $     4*e3234*p1p2-2*e34*p1p2-2*e342*p1p2+4*e343*p1p2+
     $     4*e324*p1p3+8*e34*p1p3+12*e342*p1p3-4*e3124*p1p4-
     $     4*e3234*p1p4+2*e34*p1p4-4*e341*p1p4+2*e342*p1p4-
     $     4*e343*p1p4-4*e3234*p2p3+2*e324*p2p3+2*e34*p2p3+
     $     4*e342*p2p3-4*e343*p2p3-2*e3124*p2p4-
     $     4*e3234*p2p4-2*e341*p2p4-4*e343*p2p4+
     $     4*e3124*p3p4+4*e3234*p3p4-2*e324*p3p4-2*e34*p3p4+
     $     4*e341*p3p4-4*e342*p3p4+4*e343*p3p4)
      kmv(28)=kmv(28)+
     $     (-4*e33*mt**3+6*e334*mt**3-2*e343*mt**3-2*e33*mt*p1p2+
     $     6*e334*mt*p1p2-4*e343*mt*p1p2+2*e3234*mt*p1p3-
     $     2*e332*mt*p1p3-4*e334*mt*p1p3+4*e343*mt*p1p3-
     $     2*e3134*mt*p1p4+2*e33*mt*p1p4+2*e331*mt*p1p4-
     $     6*e334*mt*p1p4+4*e343*mt*p1p4+4*e3234*mt*p2p3+
     $     2*e33*mt*p2p3-4*e332*mt*p2p3-6*e334*mt*p2p3+
     $     4*e343*mt*p2p3-4*e3134*mt*p2p4+8*e33*mt*p2p4+
     $     4*e331*mt*p2p4-8*e334*mt*p2p4+2*e3134*mt*p3p4-
     $     4*e3234*mt*p3p4-2*e33*mt*p3p4-2*e331*mt*p3p4+
     $     4*e332*mt*p3p4+6*e334*mt*p3p4-4*e343*mt*p3p4)
      kmv(29)=kmv(29)+
     $     (4*e334*mt**3+2*e34*mt**3-6*e343*mt**3+2*e334*mt*p1p2+
     $     4*e34*mt*p1p2-6*e343*mt*p1p2+2*e3234*mt*p1p3-
     $     4*e34*mt*p1p3-2*e342*mt*p1p3+4*e343*mt*p1p3-
     $     2*e3134*mt*p1p4-2*e334*mt*p1p4-4*e34*mt*p1p4+
     $     2*e341*mt*p1p4+6*e343*mt*p1p4+4*e3234*mt*p2p3-
     $     2*e334*mt*p2p3-4*e34*mt*p2p3-4*e342*mt*p2p3+
     $     6*e343*mt*p2p3-4*e3134*mt*p2p4-8*e334*mt*p2p4+
     $     4*e341*mt*p2p4+8*e343*mt*p2p4+2*e3134*mt*p3p4-
     $     4*e3234*mt*p3p4+2*e334*mt*p3p4+4*e34*mt*p3p4-
     $     2*e341*mt*p3p4+4*e342*mt*p3p4-6*e343*mt*p3p4)
      kmv(31)=kmv(31)+
     $     (-2*e33*mt**3+6*e334*mt**3-4*e343*mt**3-4*e33*mt*p1p2+
     $     6*e334*mt*p1p2-2*e343*mt*p1p2+4*e3234*mt*p1p3-
     $     4*e332*mt*p1p3-8*e334*mt*p1p3+8*e343*mt*p1p3-
     $     4*e3134*mt*p1p4+4*e33*mt*p1p4+4*e331*mt*p1p4-
     $     6*e334*mt*p1p4+2*e343*mt*p1p4+2*e3234*mt*p2p3+
     $     4*e33*mt*p2p3-2*e332*mt*p2p3-6*e334*mt*p2p3+
     $     2*e343*mt*p2p3-2*e3134*mt*p2p4+4*e33*mt*p2p4+
     $     2*e331*mt*p2p4-4*e334*mt*p2p4+4*e3134*mt*p3p4-
     $     2*e3234*mt*p3p4-4*e33*mt*p3p4-4*e331*mt*p3p4+
     $     2*e332*mt*p3p4+6*e334*mt*p3p4-2*e343*mt*p3p4)
      kmv(32)=kmv(32)+
     $     (2*e334*mt**3+4*e34*mt**3-6*e343*mt**3+4*e334*mt*p1p2+
     $     2*e34*mt*p1p2-6*e343*mt*p1p2+4*e3234*mt*p1p3-
     $     8*e34*mt*p1p3-4*e342*mt*p1p3+8*e343*mt*p1p3-
     $     4*e3134*mt*p1p4-4*e334*mt*p1p4-2*e34*mt*p1p4+
     $     4*e341*mt*p1p4+6*e343*mt*p1p4+2*e3234*mt*p2p3-
     $     4*e334*mt*p2p3-2*e34*mt*p2p3-2*e342*mt*p2p3+
     $     6*e343*mt*p2p3-2*e3134*mt*p2p4-4*e334*mt*p2p4+
     $     2*e341*mt*p2p4+4*e343*mt*p2p4+4*e3134*mt*p3p4-
     $     2*e3234*mt*p3p4+4*e334*mt*p3p4+2*e34*mt*p3p4-
     $     4*e341*mt*p3p4+2*e342*mt*p3p4-6*e343*mt*p3p4)
      kmv(46)=kmv(46)+(16*e33*mt+16*e331*mt)
      kmv(47)=kmv(47)+(-16*e3134*mt-16*e334*mt)
      kmv(49)=kmv(49)+(-16*e3134*mt-16*e334*mt)
      kmv(50)=kmv(50)+(16*e341*mt+16*e343*mt)
      kmv(55)=kmv(55)+(-16*e332*mt-16*e334*mt)
      kmv(56)=kmv(56)+(16*e3234*mt+16*e343*mt)
      kmv(58)=kmv(58)+(16*e3234*mt+16*e343*mt)
      kmv(59)=kmv(59)+(-16*e34*mt-16*e342*mt)
      kmv(64)=kmv(64)+
     $     (-12*e334*mt**2-4*e33*p1p2-16*e334*p1p2-
     $     4*e332*p1p3-8*e334*p1p3+4*e33*p1p4+4*e331*p1p4+
     $     16*e334*p1p4+4*e33*p2p3+16*e332*p2p3+
     $     16*e334*p2p3-32*e33*p2p4-16*e331*p2p4-4*e33*p3p4-
     $     4*e331*p3p4-16*e332*p3p4-16*e334*p3p4)
      kmv(65)=kmv(65)+
     $     (4*e334*mt**2+4*e343*mt**2+12*e334*p1p2+
     $     12*e343*p1p2+12*e3234*p1p3+24*e343*p1p3-
     $     12*e3134*p1p4-12*e334*p1p4-12*e343*p1p4-
     $     12*e3234*p2p3-12*e334*p2p3-12*e343*p2p3+
     $     12*e3134*p2p4+24*e334*p2p4+12*e3134*p3p4+
     $     12*e3234*p3p4+12*e334*p3p4+12*e343*p3p4)
      kmv(67)=kmv(67)+
     $     (8*e334*mt**2+8*e343*mt**2+8*e334*p1p2+8*e343*p1p2+
     $     8*e3234*p1p3+16*e343*p1p3-8*e3134*p1p4-
     $     8*e334*p1p4-8*e343*p1p4-8*e3234*p2p3-8*e334*p2p3-
     $     8*e343*p2p3+8*e3134*p2p4+16*e334*p2p4+
     $     8*e3134*p3p4+8*e3234*p3p4+8*e334*p3p4+8*e343*p3p4)
      kmv(68)=kmv(68)+
     $     (-12*e343*mt**2-4*e34*p1p2-16*e343*p1p2-
     $     32*e34*p1p3-16*e342*p1p3+4*e34*p1p4+16*e341*p1p4+
     $     16*e343*p1p4+4*e34*p2p3+4*e342*p2p3+16*e343*p2p3-
     $     4*e341*p2p4-8*e343*p2p4-4*e34*p3p4-16*e341*p3p4-
     $     4*e342*p3p4-16*e343*p3p4)
 999  continue
      do i=1,68
         kmv(i)=cg/2d0*kmv(i)
      enddo
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp5_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j
      real*8 mt,mh,ncf,cg
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
c P5
      e1(0)=E0_ir(5,mt,0d0,mt**2,mh**2,0d0,mt**2,mt**2-2d0*p2p4,
     $     mt**2+2d0*p3p4-2d0*p1p3-2d0*p1p4,
     $     2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,mt**2-2d0*p1p3,
     $     mt**2-2d0*p1p4,0d0,0d0,mt,mt,mt)
c      write(6,*)'e0=',e1(0)
      call eefunc_ir(5,mt,0d0,mt**2,mt**2-2d0*p2p4,
     $     mt**2-2d0*p1p3,p1p4,-p2p4,p1p4-p3p4,p1p4-p1p2,mt**2-p1p3,
     $     p1p4-p3p4-p1p2+p2p3,
     $     0d0,0d0,mt,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
      kmv(1)=(12*d20+4*d11*mt**2+4*d12*mt**2+4*d13*mt**2+2*d21*mt**2+
     $     4*d213*mt**2+2*d22*mt**2+2*d23*mt**2+8*e223*mt**4+
     $     8*e234*mt**4-
     $     4*d11*p1p2-4*d12*p1p2-4*d13*p1p2-4*d212*p1p2-
     $     4*d223*p1p2-8*e22*mt**2*p1p2-16*e224*mt**2*p1p2-
     $     8*e23*mt**2*p1p2-8*e24*mt**2*p1p2+8*e223*p1p2**2+
     $     8*e234*p1p2**2-4*d13*p1p3-4*d213*p1p3-4*d23*p1p3-
     $     8*e234*mt**2*p1p3+8*e224*p1p2*p1p3+
     $     8*e24*p1p2*p1p3-4*d0*p1p4-4*d11*p1p4-
     $     4*d13*p1p4-4*d21*p1p4-8*d213*p1p4-4*d23*p1p4+
     $     8*e213*mt**2*p1p4+8*e22*mt**2*p1p4+16*e224*mt**2*p1p4+
     $     8*e23*mt**2*p1p4+8*e24*mt**2*p1p4-8*e212*p1p2*p1p4-
     $     8*e214*p1p2*p1p4-16*e223*p1p2*p1p4-
     $     16*e234*p1p2*p1p4-8*e224*p1p3*p1p4-
     $     8*e24*p1p3*p1p4+8*e212*p1p4**2+8*e214*p1p4**2+
     $     8*e223*p1p4**2+8*e234*p1p4**2+4*d12*p2p3+
     $     4*d13*p2p3+4*d223*p2p3+8*e224*mt**2*p2p3+
     $     8*e23*mt**2*p2p3+8*e24*mt**2*p2p3-8*e223*p1p2*p2p3-
     $     16*e234*p1p2*p2p3-8*e24*p1p3*p2p3+
     $     8*e214*p1p4*p2p3+8*e223*p1p4*p2p3+
     $     16*e234*p1p4*p2p3+8*e234*p2p3**2+8*d0*p2p4+
     $     4*d11*p2p4+8*d12*p2p4+4*d13*p2p4+4*d212*p2p4+
     $     4*d223*p2p4+8*e12*mt**2*p2p4+8*e14*mt**2*p2p4-
     $     8*e212*mt**2*p2p4-8*e214*mt**2*p2p4-
     $     8*e13*p1p2*p2p4+8*e213*p1p2*p2p4-
     $     8*e14*p1p3*p2p4+8*e214*p1p3*p2p4-
     $     16*e223*p1p3*p2p4-16*e234*p1p3*p2p4+
     $     8*e11*p1p4*p2p4+8*e13*p1p4*p2p4-
     $     8*e21*p1p4*p2p4-8*e213*p1p4*p2p4+
     $     8*e13*p2p3*p2p4-8*e213*p2p3*p2p4+4*d0*p3p4+
     $     4*d11*p3p4+4*d13*p3p4+4*d213*p3p4+4*d23*p3p4-
     $     8*e213*mt**2*p3p4-8*e224*mt**2*p3p4-8*e23*mt**2*p3p4-
     $     8*e24*mt**2*p3p4+8*e212*p1p2*p3p4+
     $     8*e214*p1p2*p3p4+8*e223*p1p2*p3p4+
     $     16*e234*p1p2*p3p4+8*e24*p1p3*p3p4-
     $     8*e212*p1p4*p3p4-16*e214*p1p4*p3p4-
     $     8*e223*p1p4*p3p4-16*e234*p1p4*p3p4-
     $     8*e214*p2p3*p3p4-16*e234*p2p3*p3p4-
     $     8*e11*p2p4*p3p4-8*e13*p2p4*p3p4+
     $     8*e21*p2p4*p3p4+8*e213*p2p4*p3p4+
     $     8*e214*p3p4**2+8*e234*p3p4**2)
      kmv(2)=(-6*d0-2*d11+2*d13+4*e213*mt**2+8*e224*mt**2+
     $     4*e23*mt**2+8*e24*mt**2-4*e212*p1p2-4*e214*p1p2-
     $     4*e223*p1p2-12*e234*p1p2-8*e224*p1p3-16*e24*p1p3+
     $     4*e212*p1p4+12*e214*p1p4+4*e223*p1p4+
     $     12*e234*p1p4+4*e214*p2p3+12*e234*p2p3+4*e11*p2p4+
     $     4*e13*p2p4-4*e21*p2p4-12*e213*p2p4-8*e23*p2p4-
     $     12*e214*p3p4-12*e234*p3p4)
      kmv(3)=(4*d11*mt-4*d12*mt+4*d13*mt+8*e22*mt**3-8*e223*mt**3+
     $     16*e224*mt**3-8*e234*mt**3+8*e24*mt**3-8*e223*mt*p1p2+
     $     8*e23*mt*p1p2-8*e234*mt*p1p2-8*e22*mt*p1p3+
     $     8*e223*mt*p1p3-24*e224*mt*p1p3+16*e234*mt*p1p3-
     $     16*e24*mt*p1p3+8*e212*mt*p1p4-8*e213*mt*p1p4+
     $     8*e214*mt*p1p4+8*e223*mt*p1p4-8*e23*mt*p1p4+
     $     8*e234*mt*p1p4+8*e223*mt*p2p3-8*e23*mt*p2p3+
     $     8*e234*mt*p2p3-8*e212*mt*p3p4+8*e213*mt*p3p4-
     $     8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4-
     $     8*e234*mt*p3p4)
      kmv(4)=(2*d11*mt-2*d12*mt+2*d13*mt+4*e223*mt**3-4*e23*mt**3+
     $     4*e234*mt**3-4*e22*mt*p1p2+4*e223*mt*p1p2-
     $     8*e224*mt*p1p2+4*e234*mt*p1p2-4*e24*mt*p1p2+
     $     4*e22*mt*p1p4-4*e223*mt*p1p4+8*e224*mt*p1p4-
     $     4*e234*mt*p1p4+4*e24*mt*p1p4+4*e224*mt*p2p3-
     $     4*e234*mt*p2p3+4*e24*mt*p2p3+4*e12*mt*p2p4-
     $     4*e13*mt*p2p4+4*e14*mt*p2p4-4*e212*mt*p2p4+
     $     4*e213*mt*p2p4-4*e214*mt*p2p4-8*e223*mt*p2p4+
     $     8*e23*mt*p2p4-8*e234*mt*p2p4-4*e224*mt*p3p4+
     $     4*e234*mt*p3p4-4*e24*mt*p3p4)
      kmv(5)=(-6*d20-4*d11*mt**2-2*d12*mt**2-4*d13*mt**2-2*d21*mt**2-
     $     4*d213*mt**2-2*d22*mt**2-2*d23*mt**2-4*e223*mt**4-
     $     4*e234*mt**4+
     $     2*d11*p1p2+4*d12*p1p2+2*d13*p1p2+4*d212*p1p2+
     $     4*d223*p1p2+4*e22*mt**2*p1p2+8*e224*mt**2*p1p2+
     $     4*e23*mt**2*p1p2+4*e24*mt**2*p1p2-4*e223*p1p2**2-
     $     4*e234*p1p2**2+2*d11*p1p3+6*d13*p1p3+4*d213*p1p3+
     $     4*d23*p1p3+4*e22*mt**2*p1p3+8*e224*mt**2*p1p3+
     $     4*e234*mt**2*p1p3+4*e24*mt**2*p1p3-
     $     4*e223*p1p2*p1p3-4*e224*p1p2*p1p3-
     $     4*e234*p1p2*p1p3-4*e24*p1p2*p1p3-
     $     4*e224*p1p3**2-4*e24*p1p3**2+4*d0*p1p4+
     $     2*d11*p1p4+2*d13*p1p4+4*d21*p1p4+8*d213*p1p4+
     $     4*d23*p1p4-4*e213*mt**2*p1p4-12*e22*mt**2*p1p4-
     $     24*e224*mt**2*p1p4-4*e23*mt**2*p1p4-12*e24*mt**2*p1p4+
     $     4*e212*p1p2*p1p4+4*e214*p1p2*p1p4+
     $     16*e223*p1p2*p1p4+16*e234*p1p2*p1p4+
     $     8*e12*p1p3*p1p4+8*e14*p1p3*p1p4+
     $     4*e212*p1p3*p1p4+4*e214*p1p3*p1p4+
     $     8*e22*p1p3*p1p4+4*e223*p1p3*p1p4+
     $     28*e224*p1p3*p1p4+4*e234*p1p3*p1p4+
     $     20*e24*p1p3*p1p4-12*e212*p1p4**2-12*e214*p1p4**2-
     $     12*e223*p1p4**2-12*e234*p1p4**2-2*d12*p2p3-
     $     2*d13*p2p3-4*d223*p2p3-4*e224*mt**2*p2p3-
     $     4*e23*mt**2*p2p3-4*e24*mt**2*p2p3+4*e223*p1p2*p2p3+
     $     8*e234*p1p2*p2p3+4*e24*p1p3*p2p3-
     $     4*e214*p1p4*p2p3-12*e223*p1p4*p2p3-
     $     16*e234*p1p4*p2p3-4*e234*p2p3**2-4*d0*p2p4-
     $     2*d11*p2p4-4*d12*p2p4-2*d13*p2p4-4*d212*p2p4-
     $     4*d223*p2p4-4*e12*mt**2*p2p4-4*e14*mt**2*p2p4+
     $     4*e212*mt**2*p2p4+4*e214*mt**2*p2p4+4*e223*mt**2*p2p4+
     $     4*e234*mt**2*p2p4+4*e13*p1p2*p2p4-
     $     4*e213*p1p2*p2p4-4*e23*p1p2*p2p4+
     $     4*e14*p1p3*p2p4-4*e214*p1p3*p2p4+
     $     8*e223*p1p3*p2p4+4*e234*p1p3*p2p4-
     $     4*e11*p1p4*p2p4-4*e13*p1p4*p2p4+
     $     4*e21*p1p4*p2p4+8*e213*p1p4*p2p4+
     $     4*e23*p1p4*p2p4-4*e13*p2p3*p2p4+
     $     4*e213*p2p3*p2p4-6*d0*p3p4-2*d11*p3p4-
     $     4*d213*p3p4-4*d23*p3p4+4*e213*mt**2*p3p4+
     $     12*e224*mt**2*p3p4+4*e23*mt**2*p3p4+12*e24*mt**2*p3p4-
     $     4*e212*p1p2*p3p4-4*e214*p1p2*p3p4-
     $     4*e223*p1p2*p3p4-16*e234*p1p2*p3p4-
     $     8*e224*p1p3*p3p4-20*e24*p1p3*p3p4+
     $     12*e212*p1p4*p3p4+24*e214*p1p4*p3p4+
     $     12*e223*p1p4*p3p4+24*e234*p1p4*p3p4+
     $     4*e214*p2p3*p3p4+16*e234*p2p3*p3p4+
     $     4*e11*p2p4*p3p4+12*e13*p2p4*p3p4-
     $     4*e21*p2p4*p3p4-4*e213*p2p4*p3p4-
     $     12*e214*p3p4**2-12*e234*p3p4**2)
      kmv(6)=(5*d0-3*d13+2*e12*mt**2+2*e14*mt**2+2*e212*mt**2-
     $     2*e213*mt**2+2*e214*mt**2+2*e223*mt**2-6*e224*mt**2-
     $     2*e23*mt**2+2*e234*mt**2-6*e24*mt**2-2*e13*p1p2+
     $     2*e212*p1p2-2*e213*p1p2+2*e214*p1p2+2*e223*p1p2-
     $     2*e23*p1p2+8*e234*p1p2-2*e14*p1p3-2*e214*p1p3+
     $     8*e224*p1p3-2*e234*p1p3+14*e24*p1p3+4*e0*p1p4+
     $     6*e11*p1p4+4*e12*p1p4+6*e13*p1p4+4*e14*p1p4+
     $     2*e21*p1p4-2*e212*p1p4+4*e213*p1p4-8*e214*p1p4-
     $     2*e223*p1p4+2*e23*p1p4-8*e234*p1p4-2*e214*p2p3-
     $     10*e234*p2p3-2*e11*p2p4-6*e13*p2p4+2*e21*p2p4+
     $     6*e213*p2p4+4*e23*p2p4+10*e214*p3p4+10*e234*p3p4)
      kmv(7)=(3*d11*mt-3*d12*mt+3*d13*mt+6*e22*mt**3-6*e223*mt**3+
     $     12*e224*mt**3-6*e234*mt**3+6*e24*mt**3-6*e223*mt*p1p2+
     $     6*e23*mt*p1p2-6*e234*mt*p1p2-8*e22*mt*p1p3+
     $     8*e223*mt*p1p3-22*e224*mt*p1p3+14*e234*mt*p1p3-
     $     14*e24*mt*p1p3+6*e212*mt*p1p4-6*e213*mt*p1p4+
     $     6*e214*mt*p1p4+6*e223*mt*p1p4-6*e23*mt*p1p4+
     $     6*e234*mt*p1p4+8*e223*mt*p2p3-8*e23*mt*p2p3+
     $     8*e234*mt*p2p3-4*e12*mt*p3p4+4*e13*mt*p3p4-
     $     4*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4-
     $     8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4-
     $     8*e234*mt*p3p4)
      kmv(8)=(-2*e22*mt**3+4*e223*mt**3-4*e224*mt**3-2*e23*mt**3+
     $     4*e234*mt**3-2*e24*mt**3-2*e22*mt*p1p2+4*e223*mt*p1p2-
     $     4*e224*mt*p1p2-2*e23*mt*p1p2+4*e234*mt*p1p2-
     $     2*e24*mt*p1p2+2*e224*mt*p1p3-2*e234*mt*p1p3+
     $     2*e24*mt*p1p3-4*e12*mt*p1p4+4*e13*mt*p1p4-
     $     4*e14*mt*p1p4-2*e212*mt*p1p4+2*e213*mt*p1p4-
     $     2*e214*mt*p1p4+2*e22*mt*p1p4-4*e223*mt*p1p4+
     $     4*e224*mt*p1p4+2*e23*mt*p1p4-4*e234*mt*p1p4+
     $     2*e24*mt*p1p4+2*e224*mt*p2p3-2*e234*mt*p2p3+
     $     2*e24*mt*p2p3+2*e12*mt*p2p4-2*e13*mt*p2p4+
     $     2*e14*mt*p2p4-2*e212*mt*p2p4+2*e213*mt*p2p4-
     $     2*e214*mt*p2p4-4*e223*mt*p2p4+4*e23*mt*p2p4-
     $     4*e234*mt*p2p4-2*e224*mt*p3p4+2*e234*mt*p3p4-
     $     2*e24*mt*p3p4)
      kmv(10)=(-8*e223*mt+8*e23*mt-8*e234*mt)
      kmv(11)=(8*e22*mt-8*e223*mt+16*e224*mt-8*e234*mt+8*e24*mt)
      kmv(13)=(-4*e12*mt+8*e13*mt-4*e14*mt+8*e213*mt+8*e223*mt+
     $     8*e234*mt)
      kmv(14)=(-4*e13*mt-8*e212*mt-8*e214*mt-8*e22*mt-16*e224*mt-
     $     8*e24*mt)
      kmv(16)=(10*d12+2*d212+2*d223-16*e223*p1p3-16*e234*p1p3+
     $     8*e13*p1p4+8*e213*p1p4+8*e223*p1p4+8*e23*p1p4+
     $     8*e234*p1p4-4*e213*p2p4-12*e23*p2p4-8*e13*p3p4-
     $     8*e213*p3p4-8*e23*p3p4-8*e234*p3p4)
      kmv(17)=(-10*d0-4*d11-4*d13-2*d21-4*d213-2*d23-4*e12*mt**2-
     $     4*e14*mt**2-4*e212*mt**2+4*e213*mt**2-4*e214*mt**2+
     $     12*e22*mt**2-4*e223*mt**2+24*e224*mt**2+4*e23*mt**2-
     $     4*e234*mt**2+12*e24*mt**2+4*e13*p1p2-4*e212*p1p2+
     $     4*e213*p1p2-4*e214*p1p2-16*e223*p1p2+4*e23*p1p2-
     $     16*e234*p1p2+4*e14*p1p3+4*e214*p1p3-12*e224*p1p3+
     $     4*e234*p1p3-12*e24*p1p3-8*e0*p1p4-12*e11*p1p4-
     $     16*e12*p1p4-12*e13*p1p4-16*e14*p1p4-4*e21*p1p4+
     $     8*e212*p1p4-8*e213*p1p4+8*e214*p1p4-8*e22*p1p4+
     $     8*e223*p1p4-16*e224*p1p4-4*e23*p1p4+8*e234*p1p4-
     $     8*e24*p1p4+4*e214*p2p3+16*e223*p2p3+20*e234*p2p3+
     $     4*e11*p2p4+12*e13*p2p4-4*e21*p2p4+4*e212*p2p4-
     $     12*e213*p2p4+4*e214*p2p4+12*e223*p2p4-8*e23*p2p4+
     $     12*e234*p2p4+8*e14*p3p4-8*e212*p3p4-12*e214*p3p4-
     $     8*e223*p3p4+8*e224*p3p4-12*e234*p3p4+8*e24*p3p4)
      kmv(19)=(2*d0-2*d11+2*d12-2*d13+8*e12*mt**2+8*e14*mt**2+
     $     4*e212*mt**2+4*e214*mt**2+8*e223*mt**2+8*e234*mt**2-
     $     8*e13*p1p2-4*e213*p1p2-8*e23*p1p2-8*e13*p1p3-
     $     8*e14*p1p3-8*e213*p1p3-4*e214*p1p3-16*e223*p1p3-
     $     8*e23*p1p3-24*e234*p1p3+8*e11*p1p4+8*e13*p1p4+
     $     4*e21*p1p4+12*e213*p1p4+8*e23*p1p4+8*e13*p2p3+
     $     8*e213*p2p3+8*e23*p2p3-8*e13*p3p4-8*e213*p3p4-
     $     8*e23*p3p4)
      kmv(20)=(4*d11+4*d13+8*e22*mt**2+16*e224*mt**2+8*e24*mt**2-
     $     8*e223*p1p2-8*e234*p1p2+8*e212*p1p3+8*e214*p1p3+
     $     8*e223*p1p3-8*e224*p1p3+8*e234*p1p3-8*e24*p1p3+
     $     8*e212*p1p4+8*e214*p1p4+8*e223*p1p4+8*e234*p1p4-
     $     8*e212*p2p3-8*e214*p2p3+8*e223*p2p3+8*e234*p2p3-
     $     8*e212*p3p4-8*e214*p3p4-8*e223*p3p4-8*e234*p3p4)
      kmv(22)=(2*d12+2*d223+4*e23*mt**2-4*e223*p1p2-
     $     4*e234*p1p2+12*e223*p1p4+4*e234*p1p4+4*e234*p2p3+
     $     4*e13*p2p4-4*e213*p2p4+4*e234*p2p4-4*e234*p3p4)
      kmv(23)=(-2*d11-2*d13-2*d213-2*d23-4*e22*mt**2-4*e224*mt**2-
     $     4*e234*mt**2+4*e223*p1p2+4*e224*p1p2+4*e24*p1p2+
     $     4*e224*p1p3-8*e12*p1p4-4*e212*p1p4-8*e22*p1p4-
     $     4*e223*p1p4-12*e224*p1p4-4*e24*p1p4-4*e24*p2p3-
     $     4*e14*p2p4+4*e214*p2p4-8*e223*p2p4-4*e224*p2p4-
     $     4*e24*p2p4+4*e24*p3p4)
      kmv(25)=(-2*d0-2*d12-2*d13-4*e12*mt**2-4*e14*mt**2-
     $     4*e223*mt**2-4*e224*mt**2-4*e234*mt**2-4*e24*mt**2-
     $     4*e13*p1p2-8*e223*p1p2-4*e23*p1p2-4*e234*p1p2+
     $     4*e14*p1p3+4*e234*p1p3+4*e24*p1p3-8*e0*p1p4-
     $     4*e11*p1p4-8*e12*p1p4-4*e13*p1p4-8*e14*p1p4+
     $     4*e213*p1p4-4*e214*p1p4+8*e223*p1p4+4*e23*p1p4+
     $     4*e234*p1p4-8*e213*p2p4)
      kmv(26)=(2*d0+2*d11+2*d13+4*e13*mt**2+4*e223*mt**2+
     $     4*e234*mt**2+4*e12*p1p2+4*e14*p1p2+4*e22*p1p2+
     $     8*e223*p1p2+8*e224*p1p2+8*e234*p1p2+4*e24*p1p2-
     $     4*e12*p1p4-4*e14*p1p4-8*e212*p1p4-8*e214*p1p4-
     $     4*e22*p1p4-8*e223*p1p4-8*e224*p1p4-8*e234*p1p4-
     $     4*e24*p1p4+4*e14*p2p3+4*e224*p2p3+4*e24*p2p3+
     $     4*e0*p2p4-4*e11*p2p4+4*e12*p2p4+4*e14*p2p4+
     $     4*e212*p2p4+4*e214*p2p4-8*e223*p2p4-8*e234*p2p4-
     $     4*e14*p3p4-4*e224*p3p4-4*e24*p3p4)
      kmv(28)=(2*d212*mt-2*d22*mt+2*d223*mt-8*e223*mt*p1p4+
     $     8*e23*mt*p1p4-8*e234*mt*p1p4+4*e223*mt*p2p4-
     $     4*e23*mt*p2p4+4*e234*mt*p2p4+8*e223*mt*p3p4-
     $     8*e23*mt*p3p4+8*e234*mt*p3p4)
      kmv(29)=(-2*d21*mt+2*d212*mt-4*d213*mt+2*d223*mt-2*d23*mt+
     $     4*e22*mt**3-8*e223*mt**3+8*e224*mt**3+4*e23*mt**3-
     $     8*e234*mt**3+
     $     4*e24*mt**3+4*e22*mt*p1p2-8*e223*mt*p1p2+
     $     8*e224*mt*p1p2+4*e23*mt*p1p2-8*e234*mt*p1p2+
     $     4*e24*mt*p1p2-4*e224*mt*p1p3+4*e234*mt*p1p3-
     $     4*e24*mt*p1p3+8*e12*mt*p1p4-8*e13*mt*p1p4+
     $     8*e14*mt*p1p4+4*e212*mt*p1p4-4*e213*mt*p1p4+
     $     4*e214*mt*p1p4+4*e22*mt*p1p4+8*e224*mt*p1p4-
     $     4*e23*mt*p1p4+4*e24*mt*p1p4-4*e224*mt*p2p3+
     $     4*e234*mt*p2p3-4*e24*mt*p2p3-4*e12*mt*p2p4+
     $     4*e13*mt*p2p4-4*e14*mt*p2p4+4*e212*mt*p2p4-
     $     4*e213*mt*p2p4+4*e214*mt*p2p4-4*e22*mt*p2p4+
     $     12*e223*mt*p2p4-8*e224*mt*p2p4-8*e23*mt*p2p4+
     $     12*e234*mt*p2p4-4*e24*mt*p2p4-8*e22*mt*p3p4+
     $     8*e223*mt*p3p4-12*e224*mt*p3p4+4*e234*mt*p3p4-
     $     4*e24*mt*p3p4)
      kmv(31)=(2*d11*mt+2*d12*mt+2*d13*mt+4*e22*mt**3+4*e223*mt**3+
     $     8*e224*mt**3+4*e234*mt**3+4*e24*mt**3-4*e223*mt*p1p2-
     $     4*e23*mt*p1p2-4*e234*mt*p1p2-4*e224*mt*p1p3+
     $     8*e23*mt*p1p3-4*e234*mt*p1p3-4*e24*mt*p1p3+
     $     4*e212*mt*p1p4+4*e213*mt*p1p4+4*e214*mt*p1p4+
     $     4*e223*mt*p1p4+4*e23*mt*p1p4+4*e234*mt*p1p4+
     $     8*e223*mt*p2p3+8*e234*mt*p2p3+8*e12*mt*p3p4-
     $     8*e13*mt*p3p4+8*e14*mt*p3p4-8*e213*mt*p3p4-
     $     8*e223*mt*p3p4-8*e234*mt*p3p4)
      kmv(32)=(-4*d11*mt-4*d13*mt-8*e22*mt**3-16*e224*mt**3-
     $     8*e24*mt**3+8*e223*mt*p1p2+8*e234*mt*p1p2-
     $     8*e223*mt*p1p3+8*e224*mt*p1p3-8*e234*mt*p1p3+
     $     8*e24*mt*p1p3-8*e212*mt*p1p4-8*e214*mt*p1p4-
     $     8*e223*mt*p1p4-8*e234*mt*p1p4-8*e22*mt*p2p3-
     $     16*e224*mt*p2p3-8*e24*mt*p2p3+8*e212*mt*p3p4+
     $     8*e214*mt*p3p4+8*e22*mt*p3p4+16*e224*mt*p3p4+
     $     8*e24*mt*p3p4)
      kmv(37)=(-8*e13-8*e213-8*e23-8*e234)
      kmv(38)=(8*e13+8*e14+8*e213+16*e223+8*e224+8*e23+16*e234+
     $     8*e24)
      kmv(40)=(8*e212+8*e214-8*e223)
      kmv(41)=(-8*e14-8*e212-8*e214-8*e223-8*e224-8*e234-8*e24)
      kmv(46)=(-8*e223*mt+16*e23*mt-8*e234*mt)
      kmv(47)=(8*e12*mt-16*e13*mt+8*e14*mt-16*e213*mt+8*e22*mt-
     $     16*e223*mt+16*e224*mt-16*e23*mt-16*e234*mt+8*e24*mt)
      kmv(49)=-8*e23*mt
      kmv(50)=(8*e13*mt+16*e212*mt+16*e214*mt+24*e223*mt+24*e234*mt)
      kmv(55)=(-8*e223*mt-8*e234*mt)
      kmv(56)=(-8*e23*mt+16*e234*mt)
      kmv(58)=(8*e22*mt+16*e224*mt+8*e24*mt)
      kmv(59)=(8*e223*mt-16*e224*mt+8*e234*mt-16*e24*mt)
      kmv(64)=(-8*d12+8*d22-16*e223*mt**2-16*e234*mt**2+
     $     16*e234*p1p3-16*e13*p1p4-16*e213*p1p4-
     $     16*e223*p1p4-16*e23*p1p4-16*e234*p1p4+
     $     16*e13*p3p4+16*e213*p3p4+16*e23*p3p4+16*e234*p3p4)
      kmv(65)=(4*d0+4*d11-12*d12+4*d13-8*d212-8*d223+8*e12*mt**2+
     $     8*e14*mt**2+8*e22*mt**2+8*e223*mt**2+16*e224*mt**2+
     $     8*e234*mt**2+8*e24*mt**2+8*e13*p1p2+24*e223*p1p2+
     $     8*e23*p1p2+24*e234*p1p2-8*e14*p1p3-8*e224*p1p3+
     $     8*e234*p1p3-8*e24*p1p3+16*e0*p1p4+8*e11*p1p4+
     $     32*e12*p1p4+8*e13*p1p4+32*e14*p1p4+8*e212*p1p4-
     $     8*e213*p1p4+8*e214*p1p4+16*e22*p1p4-8*e223*p1p4+
     $     32*e224*p1p4-8*e23*p1p4-8*e234*p1p4+16*e24*p1p4-
     $     16*e234*p2p3+16*e213*p2p4+32*e23*p2p4-
     $     16*e14*p3p4-16*e223*p3p4-16*e224*p3p4-16*e24*p3p4)
      kmv(67)=(8*d11+4*d12+8*d13-4*d212-4*d223+16*e22*mt**2+
     $     32*e224*mt**2+8*e23*mt**2+16*e24*mt**2-8*e223*p1p2-
     $     8*e234*p1p2-16*e224*p1p3-16*e24*p1p3+
     $     16*e212*p1p4+16*e214*p1p4+8*e223*p1p4+
     $     8*e234*p1p4+8*e234*p2p3+8*e13*p2p4-8*e213*p2p4+
     $     8*e223*p2p4+8*e234*p2p4-16*e212*p3p4-
     $     16*e214*p3p4-8*e234*p3p4)
      kmv(68)=(-4*d0+8*d11+8*d13+4*d21+8*d213+4*d23-8*e13*mt**2-
     $     16*e223*mt**2-16*e234*mt**2-8*e12*p1p2-8*e14*p1p2-
     $     16*e22*p1p2-16*e223*p1p2-32*e224*p1p2-
     $     16*e234*p1p2-16*e24*p1p2-16*e224*p1p3-
     $     16*e24*p1p3+8*e12*p1p4+8*e14*p1p4+16*e212*p1p4+
     $     16*e214*p1p4+16*e22*p1p4+16*e223*p1p4+
     $     32*e224*p1p4+16*e234*p1p4+16*e24*p1p4-8*e14*p2p3-
     $     8*e0*p2p4+8*e11*p2p4-16*e12*p2p4-16*e14*p2p4-
     $     8*e22*p2p4-16*e223*p2p4-16*e224*p2p4-
     $     16*e234*p2p4-8*e24*p2p4+8*e14*p3p4)

      kmv(16)=kmv(16)+
     $     (-4*e33*mt**2-4*e331*mt**2+4*e3123*p1p2+
     $     4*e3134*p1p2+4*e332*p1p2+4*e334*p1p2-
     $     4*e3123*p1p4-4*e3134*p1p4-4*e332*p1p4-
     $     4*e334*p1p4-4*e3134*p2p3-4*e334*p2p3+4*e313*p2p4+
     $     8*e33*p2p4+12*e331*p2p4+4*e3134*p3p4+4*e334*p3p4)
      kmv(17)=kmv(17)+
     $     (4*e3123*mt**2+4*e3134*mt**2+4*e332*mt**2+4*e334*mt**2-
     $     8*e3124*p1p2-4*e321*p1p2-4*e323*p1p2-
     $     8*e3234*p1p2-4*e341*p1p2-4*e343*p1p2+
     $     8*e3124*p1p4+4*e321*p1p4+4*e323*p1p4+
     $     8*e3234*p1p4+4*e341*p1p4+4*e343*p1p4+
     $     4*e3124*p2p3+4*e3234*p2p3+4*e341*p2p3+
     $     4*e343*p2p3-4*e312*p2p4-12*e3123*p2p4-
     $     12*e3134*p2p4-4*e314*p2p4-8*e332*p2p4-
     $     8*e334*p2p4-4*e3124*p3p4-4*e3234*p3p4-
     $     4*e341*p3p4-4*e343*p3p4)
      kmv(22)=kmv(22)+
     $     (4*e334*mt**2-4*e3234*p1p2-4*e343*p1p2+
     $     4*e3234*p1p4+4*e343*p1p4+4*e343*p2p3-
     $     4*e3134*p2p4-8*e334*p2p4-4*e343*p3p4)
      kmv(23)=kmv(23)+
     $     (-4*e3234*mt**2-4*e343*mt**2+4*e324*p1p2+
     $     4*e34*p1p2+8*e342*p1p2-4*e324*p1p4-4*e34*p1p4-
     $     8*e342*p1p4-4*e34*p2p3-4*e342*p2p3+4*e3124*p2p4+
     $     8*e3234*p2p4+4*e341*p2p4+8*e343*p2p4+4*e34*p3p4+
     $     4*e342*p3p4)
      kmv(28)=kmv(28)+
     $     (-4*e33*mt**3+4*e332*mt**3+4*e334*mt**3-4*e323*mt*p1p2-
     $     8*e3234*mt*p1p2+4*e332*mt*p1p2+4*e334*mt*p1p2-
     $     4*e343*mt*p1p2+4*e323*mt*p1p4+8*e3234*mt*p1p4-
     $     4*e332*mt*p1p4-4*e334*mt*p1p4+4*e343*mt*p1p4+
     $     4*e3234*mt*p2p3-4*e334*mt*p2p3+4*e343*mt*p2p3-
     $     4*e3123*mt*p2p4-4*e3134*mt*p2p4+8*e33*mt*p2p4+
     $     4*e331*mt*p2p4-8*e332*mt*p2p4-8*e334*mt*p2p4-
     $     4*e3234*mt*p3p4+4*e334*mt*p3p4-4*e343*mt*p3p4)
      kmv(29)=kmv(29)+
     $     (-4*e323*mt**3-8*e3234*mt**3+4*e332*mt**3+4*e334*mt**3-
     $     4*e343*mt**3+4*e32*mt*p1p2-4*e323*mt*p1p2-
     $     8*e3234*mt*p1p2+12*e324*mt*p1p2+4*e34*mt*p1p2+
     $     12*e342*mt*p1p2-4*e343*mt*p1p2-4*e32*mt*p1p4+
     $     4*e323*mt*p1p4+8*e3234*mt*p1p4-12*e324*mt*p1p4-
     $     4*e34*mt*p1p4-12*e342*mt*p1p4+4*e343*mt*p1p4+
     $     4*e3234*mt*p2p3-4*e324*mt*p2p3-4*e34*mt*p2p3-
     $     8*e342*mt*p2p3+4*e343*mt*p2p3-4*e3123*mt*p2p4+
     $     8*e3124*mt*p2p4-4*e3134*mt*p2p4+4*e321*mt*p2p4+
     $     8*e323*mt*p2p4+16*e3234*mt*p2p4-8*e332*mt*p2p4-
     $     8*e334*mt*p2p4+4*e341*mt*p2p4+8*e343*mt*p2p4-
     $     4*e3234*mt*p3p4+4*e324*mt*p3p4+4*e34*mt*p3p4+
     $     8*e342*mt*p3p4-4*e343*mt*p3p4)
      kmv(46)=kmv(46)+(16*e33*mt+16*e331*mt)
      kmv(47)=kmv(47)+
     $     (-16*e3123*mt-16*e3134*mt-16*e332*mt-16*e334*mt)
      kmv(49)=kmv(49)+
     $     (-16*e3123*mt-16*e3134*mt-16*e332*mt-16*e334*mt)
      kmv(50)=kmv(50)+
     $     (32*e3124*mt+16*e321*mt+16*e323*mt+32*e3234*mt+
     $     16*e341*mt+16*e343*mt)
      kmv(55)=kmv(55)-16*e334*mt
      kmv(56)=kmv(56)+(16*e3234*mt+16*e343*mt)
      kmv(58)=kmv(58)+(16*e3234*mt+16*e343*mt)
      kmv(59)=kmv(59)+(-16*e324*mt-16*e34*mt-32*e342*mt)
      kmv(64)=kmv(64)+
     $     (-16*e332*mt**2-16*e334*mt**2-16*e332*p1p2-
     $     16*e334*p1p2+16*e332*p1p4+16*e334*p1p4+
     $     16*e334*p2p3-32*e33*p2p4-16*e331*p2p4-16*e334*p3p4)
      kmv(65)=kmv(65)+
     $     (16*e323*mt**2+32*e3234*mt**2+16*e343*mt**2+
     $     16*e323*p1p2+32*e3234*p1p2+16*e343*p1p2-
     $     16*e323*p1p4-32*e3234*p1p4-16*e343*p1p4-
     $     16*e3234*p2p3-16*e343*p2p3+16*e3123*p2p4+
     $     16*e3134*p2p4+32*e332*p2p4+32*e334*p2p4+
     $     16*e3234*p3p4+16*e343*p3p4)
      kmv(67)=kmv(67)+
     $     (16*e323*mt**2+32*e3234*mt**2+8*e332*mt**2+8*e334*mt**2+
     $     16*e343*mt**2+8*e323*p1p2+16*e3234*p1p2+8*e343*p1p2-
     $     8*e323*p1p4-16*e3234*p1p4-8*e343*p1p4-
     $     8*e3234*p2p3-8*e343*p2p3+8*e3123*p2p4+
     $     8*e3134*p2p4+16*e332*p2p4+16*e334*p2p4+
     $     8*e3234*p3p4+8*e343*p3p4)
      kmv(68)=kmv(68)+
     $     (-16*e32*mt**2-8*e323*mt**2-16*e3234*mt**2-48*e324*mt**2-
     $     16*e34*mt**2-48*e342*mt**2-8*e343*mt**2-8*e32*p1p2-
     $     24*e324*p1p2-8*e34*p1p2-24*e342*p1p2+8*e32*p1p4+
     $     24*e324*p1p4+8*e34*p1p4+24*e342*p1p4+8*e324*p2p3+
     $     8*e34*p2p3+16*e342*p2p3-16*e3124*p2p4-
     $     8*e321*p2p4-16*e323*p2p4-32*e3234*p2p4-
     $     8*e341*p2p4-16*e343*p2p4-8*e324*p3p4-8*e34*p3p4-
     $     16*e342*p3p4)
      do i=1,68
         kmv(i)=cg/2d0*kmv(i)
      enddo
      return
      end
c---------------------------------------------------------------------
*
c---------------------------------------------------------------------
      subroutine pentp6_t(s,t1,t2,u1,u2,mt,mh,kmv)
      implicit none
      integer i,j
      real*8 mt,mh,ncf,cg
      real*8 s,t1,t2,u1,u2,s3,p3p4,p1p2,p1p3,p1p4,p2p3,p2p4,p1pq,p2pq
      real*8 s1,s2
      complex*16 zero,kmv(68)
      complex*16 d1(0:3),d2(0:6),d3(0:3,0:3)
      complex*16 d0,d11,d12,d13,d21,d22,d23,d20,d212,d213,d223
      complex*16 e0,E0_ir,e1(0:4),e2(4,4),e3(0:4,4)
      complex*16 e11,e12,e13,e14,e21,e22,e23,e24,e212,e213,e214,e223,
     $     e224,e234,e31,e32,e33,e34,e312,e313,e314,e321,e331,e341,
     $     e323,e324,e332,e342,e334,e343,e3123,e3124,e3134,e3234

      zero=dcmplx(0d0,0d0)
      do i=1,68
         kmv(i)=zero
      enddo
      s3=4d0*mt**2+mh**2-s-t1-t2-u1-u2
      s1=s+t2+u2-mt**2
      s2=s+t1+u1-mt**2
      p3p4=s/2d0
      p1p2=(s3-2d0*mt**2)/2d0
      p1p3=(mt**2-t2)/2d0
      p1p4=(mt**2-u2)/2d0
      p2p3=(mt**2-u1)/2d0
      p2p4=(mt**2-t1)/2d0
      p1pq=p1p3+p1p4
      p2pq=p2p3+p2p4
c color factors:
      ncf=3d0
      cg=ncf
c P6
      e1(0)=E0_ir(6,mt,0d0,mt**2,mh**2,0d0,mt**2,mt**2-2d0*p1p4,
     $     mt**2+2d0*p3p4-2d0*p2p3-2d0*p2p4,
     $     2d0*mt**2+2d0*p1p2-2d0*p1p4-2d0*p2p4,mt**2-2d0*p2p3,
     $     mt**2-2d0*p2p4,0d0,0d0,mt,mt,mt)
c      write(6,*)'e0=',e1(0)
      call eefunc_ir(6,mt,0d0,mt**2,mt**2-2d0*p1p4,
     $     mt**2-2d0*p2p3,p2p4,-p1p4,p2p4-p3p4,p2p4-p1p2,mt**2-p2p3,
     $     p2p4-p3p4-p1p2+p1p3,
     $     0d0,0d0,mt,mt,mt,e1,e2,e3,d1,d2,d3)
      d0=d1(0)
      d11=d1(1)
      d12=d1(2)
      d13=d1(3)
      d20=d2(0)
      d21=d2(1)
      d22=d2(2)
      d23=d2(3)
      d212=d2(4)
      d213=d2(5)
      d223=d2(6)
      e0=e1(0)
      e11=e1(1)
      e12=e1(2)
      e13=e1(3)
      e14=e1(4)
      e21=e2(1,1)
      e22=e2(2,2)
      e23=e2(3,3)
      e24=e2(4,4)
      e212=e2(1,2)
      e213=e2(1,3)
      e214=e2(1,4)
      e223=e2(2,3)
      e224=e2(2,4)
      e234=e2(3,4)
      e31=e3(1,1)
      e32=e3(2,2)
      e33=e3(3,3)
      e34=e3(4,4)
      e312=e3(1,2)
      e313=e3(1,3)
      e314=e3(1,4)
      e321=e3(2,1)
      e331=e3(3,1)
      e341=e3(4,1)
      e323=e3(2,3)
      e324=e3(2,4)
      e332=e3(3,2)
      e342=e3(4,2)
      e334=e3(3,4)
      e343=e3(4,3)
      e3123=e3(0,1)
      e3124=e3(0,2)
      e3134=e3(0,3)
      e3234=e3(0,4)
      kmv(1)=(-4*d11*mt**2-4*d13*mt**2-2*d21*mt**2-4*d213*mt**2-
     $     2*d22*mt**2-2*d23*mt**2+4*d12*p1p2+4*d212*p1p2+
     $     4*d223*p1p2-4*d223*p1p3-4*d212*p1p4-4*d223*p1p4+
     $     8*e223*mt**2*p1p4+8*e234*mt**2*p1p4-
     $     8*e23*p1p2*p1p4+4*d11*p2p3+8*d13*p2p3+
     $     4*d213*p2p3+4*d23*p2p3+8*e22*mt**2*p2p3+
     $     16*e224*mt**2*p2p3+8*e24*mt**2*p2p3-
     $     8*e223*p1p2*p2p3-8*e234*p1p2*p2p3-
     $     8*e234*p1p4*p2p3-8*e224*p2p3**2-8*e24*p2p3**2+
     $     4*d0*p2p4+4*d21*p2p4+8*d213*p2p4+4*d23*p2p4-
     $     16*e22*mt**2*p2p4-32*e224*mt**2*p2p4-16*e24*mt**2*p2p4+
     $     16*e223*p1p2*p2p4+16*e234*p1p2*p2p4-
     $     16*e223*p1p3*p2p4-16*e234*p1p3*p2p4+
     $     8*e213*p1p4*p2p4+8*e23*p1p4*p2p4+
     $     16*e12*p2p3*p2p4+16*e14*p2p3*p2p4+
     $     8*e212*p2p3*p2p4+8*e214*p2p3*p2p4+
     $     16*e22*p2p3*p2p4+8*e223*p2p3*p2p4+
     $     48*e224*p2p3*p2p4+8*e234*p2p3*p2p4+
     $     32*e24*p2p3*p2p4-16*e212*p2p4**2-16*e214*p2p4**2-
     $     16*e223*p2p4**2-16*e234*p2p4**2-4*d11*p3p4-
     $     4*d13*p3p4-4*d213*p3p4-4*d23*p3p4+
     $     8*e12*mt**2*p3p4+8*e14*mt**2*p3p4+8*e212*mt**2*p3p4+
     $     8*e214*mt**2*p3p4+8*e223*mt**2*p3p4+8*e224*mt**2*p3p4+
     $     8*e234*mt**2*p3p4+8*e24*mt**2*p3p4-8*e13*p1p2*p3p4-
     $     8*e213*p1p2*p3p4-8*e23*p1p2*p3p4-
     $     8*e234*p1p2*p3p4-8*e14*p2p3*p3p4-
     $     8*e214*p2p3*p3p4-8*e234*p2p3*p3p4-
     $     8*e24*p2p3*p3p4+16*e0*p2p4*p3p4+
     $     24*e11*p2p4*p3p4+16*e12*p2p4*p3p4+
     $     24*e13*p2p4*p3p4+16*e14*p2p4*p3p4+
     $     8*e21*p2p4*p3p4+16*e212*p2p4*p3p4+
     $     16*e213*p2p4*p3p4+24*e214*p2p4*p3p4+
     $     16*e223*p2p4*p3p4+8*e23*p2p4*p3p4+
     $     24*e234*p2p4*p3p4)
      kmv(2)=(-4*d0+2*d11+4*d13-4*e12*mt**2-4*e14*mt**2-4*e212*mt**2-
     $     4*e214*mt**2-4*e223*mt**2+4*e224*mt**2-4*e234*mt**2+
     $     4*e24*mt**2+4*e13*p1p2+4*e213*p1p2+4*e23*p1p2-
     $     4*e234*p1p2+8*e234*p1p3+8*e13*p1p4+4*e14*p2p3+
     $     4*e214*p2p3-8*e224*p2p3+4*e234*p2p3-12*e24*p2p3-
     $     8*e0*p2p4-12*e11*p2p4-8*e12*p2p4-12*e13*p2p4-
     $     8*e14*p2p4-4*e21*p2p4-8*e213*p2p4+4*e214*p2p4-
     $     4*e23*p2p4+4*e234*p2p4-8*e214*p3p4-8*e234*p3p4)
      kmv(3)=(2*d11*mt-2*d12*mt+2*d13*mt+4*e22*mt**3-4*e223*mt**3+
     $     8*e224*mt**3-4*e234*mt**3+4*e24*mt**3-4*e223*mt*p1p2+
     $     4*e23*mt*p1p2-4*e234*mt*p1p2+8*e223*mt*p1p3-
     $     8*e23*mt*p1p3+8*e234*mt*p1p3-8*e22*mt*p2p3+
     $     8*e223*mt*p2p3-20*e224*mt*p2p3+12*e234*mt*p2p3-
     $     12*e24*mt*p2p3+4*e212*mt*p2p4-4*e213*mt*p2p4+
     $     4*e214*mt*p2p4+4*e223*mt*p2p4-4*e23*mt*p2p4+
     $     4*e234*mt*p2p4-8*e12*mt*p3p4+8*e13*mt*p3p4-
     $     8*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4-
     $     8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4-
     $     8*e234*mt*p3p4)
      kmv(4)=(-2*d11*mt+2*d12*mt-2*d13*mt-4*e22*mt**3+4*e223*mt**3-
     $     8*e224*mt**3+4*e234*mt**3-4*e24*mt**3+4*e223*mt*p1p2-
     $     4*e23*mt*p1p2+4*e234*mt*p1p2+4*e224*mt*p2p3-
     $     4*e234*mt*p2p3+4*e24*mt*p2p3-8*e12*mt*p2p4+
     $     8*e13*mt*p2p4-8*e14*mt*p2p4-4*e212*mt*p2p4+
     $     4*e213*mt*p2p4-4*e214*mt*p2p4-4*e223*mt*p2p4+
     $     4*e23*mt*p2p4-4*e234*mt*p2p4)
      kmv(5)=(6*d20+4*d11*mt**2+2*d12*mt**2+4*d13*mt**2+2*d21*mt**2+
     $     4*d213*mt**2+2*d22*mt**2+2*d23*mt**2+4*e223*mt**4+
     $     4*e234*mt**4-
     $     2*d11*p1p2-4*d12*p1p2-2*d13*p1p2-4*d212*p1p2-
     $     4*d223*p1p2-4*e22*mt**2*p1p2-8*e224*mt**2*p1p2-
     $     4*e23*mt**2*p1p2-4*e24*mt**2*p1p2+4*e223*p1p2**2+
     $     4*e234*p1p2**2+2*d12*p1p3+2*d13*p1p3+4*d223*p1p3+
     $     4*e224*mt**2*p1p3+4*e23*mt**2*p1p3+4*e24*mt**2*p1p3-
     $     4*e223*p1p2*p1p3-8*e234*p1p2*p1p3+
     $     4*e234*p1p3**2+4*d0*p1p4+2*d11*p1p4+4*d12*p1p4+
     $     2*d13*p1p4+4*d212*p1p4+4*d223*p1p4+
     $     4*e12*mt**2*p1p4+4*e14*mt**2*p1p4-4*e212*mt**2*p1p4-
     $     4*e214*mt**2*p1p4-4*e223*mt**2*p1p4-4*e234*mt**2*p1p4-
     $     4*e13*p1p2*p1p4+4*e213*p1p2*p1p4+
     $     4*e23*p1p2*p1p4+4*e13*p1p3*p1p4-
     $     4*e213*p1p3*p1p4-2*d11*p2p3-6*d13*p2p3-
     $     4*d213*p2p3-4*d23*p2p3-4*e22*mt**2*p2p3-
     $     8*e224*mt**2*p2p3-4*e234*mt**2*p2p3-4*e24*mt**2*p2p3+
     $     4*e223*p1p2*p2p3+4*e224*p1p2*p2p3+
     $     4*e234*p1p2*p2p3+4*e24*p1p2*p2p3-
     $     4*e24*p1p3*p2p3-4*e14*p1p4*p2p3+
     $     4*e214*p1p4*p2p3-8*e223*p1p4*p2p3-
     $     4*e234*p1p4*p2p3+4*e224*p2p3**2+4*e24*p2p3**2-
     $     4*d0*p2p4-2*d11*p2p4-2*d13*p2p4-4*d21*p2p4-
     $     8*d213*p2p4-4*d23*p2p4+4*e213*mt**2*p2p4+
     $     12*e22*mt**2*p2p4+24*e224*mt**2*p2p4+4*e23*mt**2*p2p4+
     $     12*e24*mt**2*p2p4-4*e212*p1p2*p2p4-
     $     4*e214*p1p2*p2p4-16*e223*p1p2*p2p4-
     $     16*e234*p1p2*p2p4+4*e214*p1p3*p2p4+
     $     12*e223*p1p3*p2p4+16*e234*p1p3*p2p4+
     $     4*e11*p1p4*p2p4+4*e13*p1p4*p2p4-
     $     4*e21*p1p4*p2p4-8*e213*p1p4*p2p4-
     $     4*e23*p1p4*p2p4-8*e12*p2p3*p2p4-
     $     8*e14*p2p3*p2p4-4*e212*p2p3*p2p4-
     $     4*e214*p2p3*p2p4-8*e22*p2p3*p2p4-
     $     4*e223*p2p3*p2p4-28*e224*p2p3*p2p4-
     $     4*e234*p2p3*p2p4-20*e24*p2p3*p2p4+
     $     12*e212*p2p4**2+12*e214*p2p4**2+12*e223*p2p4**2+
     $     12*e234*p2p4**2-4*d0*p3p4+2*d11*p3p4+6*d13*p3p4+
     $     4*d213*p3p4+4*d23*p3p4-4*e12*mt**2*p3p4-
     $     4*e14*mt**2*p3p4-4*e212*mt**2*p3p4-4*e214*mt**2*p3p4-
     $     4*e223*mt**2*p3p4-4*e234*mt**2*p3p4+
     $     4*e13*p1p2*p3p4+4*e213*p1p2*p3p4+
     $     4*e23*p1p2*p3p4+4*e234*p1p3*p3p4-
     $     8*e213*p1p4*p3p4-8*e23*p1p4*p3p4+
     $     4*e14*p2p3*p3p4+4*e214*p2p3*p3p4-
     $     8*e224*p2p3*p3p4+4*e234*p2p3*p3p4-
     $     8*e24*p2p3*p3p4-8*e0*p2p4*p3p4-
     $     12*e11*p2p4*p3p4-8*e12*p2p4*p3p4-
     $     12*e13*p2p4*p3p4-8*e14*p2p4*p3p4-
     $     4*e21*p2p4*p3p4-8*e212*p2p4*p3p4-
     $     8*e213*p2p4*p3p4-8*e214*p2p4*p3p4-
     $     8*e223*p2p4*p3p4-4*e23*p2p4*p3p4-
     $     8*e234*p2p4*p3p4-8*e214*p3p4**2-8*e234*p3p4**2)
      kmv(6)=(5*d0-3*d13+2*e12*mt**2+2*e14*mt**2+2*e212*mt**2-
     $     2*e213*mt**2+2*e214*mt**2+2*e223*mt**2-6*e224*mt**2-
     $     2*e23*mt**2+2*e234*mt**2-6*e24*mt**2-2*e13*p1p2+
     $     2*e212*p1p2-2*e213*p1p2+2*e214*p1p2+2*e223*p1p2-
     $     2*e23*p1p2+8*e234*p1p2-2*e214*p1p3-10*e234*p1p3-
     $     2*e11*p1p4-6*e13*p1p4+2*e21*p1p4+6*e213*p1p4+
     $     4*e23*p1p4-2*e14*p2p3-2*e214*p2p3+8*e224*p2p3-
     $     2*e234*p2p3+14*e24*p2p3+4*e0*p2p4+6*e11*p2p4+
     $     4*e12*p2p4+6*e13*p2p4+4*e14*p2p4+2*e21*p2p4-
     $     2*e212*p2p4+4*e213*p2p4-8*e214*p2p4-2*e223*p2p4+
     $     2*e23*p2p4-8*e234*p2p4+10*e214*p3p4+10*e234*p3p4)
      kmv(7)=(3*d11*mt-3*d12*mt+3*d13*mt+6*e22*mt**3-6*e223*mt**3+
     $     12*e224*mt**3-6*e234*mt**3+6*e24*mt**3-6*e223*mt*p1p2+
     $     6*e23*mt*p1p2-6*e234*mt*p1p2+8*e223*mt*p1p3-
     $     8*e23*mt*p1p3+8*e234*mt*p1p3-8*e22*mt*p2p3+
     $     8*e223*mt*p2p3-22*e224*mt*p2p3+14*e234*mt*p2p3-
     $     14*e24*mt*p2p3+6*e212*mt*p2p4-6*e213*mt*p2p4+
     $     6*e214*mt*p2p4+6*e223*mt*p2p4-6*e23*mt*p2p4+
     $     6*e234*mt*p2p4-4*e12*mt*p3p4+4*e13*mt*p3p4-
     $     4*e14*mt*p3p4-8*e212*mt*p3p4+8*e213*mt*p3p4-
     $     8*e214*mt*p3p4-8*e223*mt*p3p4+8*e23*mt*p3p4-
     $     8*e234*mt*p3p4)
      kmv(8)=(-2*e22*mt**3+4*e223*mt**3-4*e224*mt**3-2*e23*mt**3+
     $     4*e234*mt**3-2*e24*mt**3-2*e22*mt*p1p2+4*e223*mt*p1p2-
     $     4*e224*mt*p1p2-2*e23*mt*p1p2+4*e234*mt*p1p2-
     $     2*e24*mt*p1p2+2*e224*mt*p1p3-2*e234*mt*p1p3+
     $     2*e24*mt*p1p3+2*e12*mt*p1p4-2*e13*mt*p1p4+
     $     2*e14*mt*p1p4-2*e212*mt*p1p4+2*e213*mt*p1p4-
     $     2*e214*mt*p1p4-4*e223*mt*p1p4+4*e23*mt*p1p4-
     $     4*e234*mt*p1p4+2*e224*mt*p2p3-2*e234*mt*p2p3+
     $     2*e24*mt*p2p3-4*e12*mt*p2p4+4*e13*mt*p2p4-
     $     4*e14*mt*p2p4-2*e212*mt*p2p4+2*e213*mt*p2p4-
     $     2*e214*mt*p2p4+2*e22*mt*p2p4-4*e223*mt*p2p4+
     $     4*e224*mt*p2p4+2*e23*mt*p2p4-4*e234*mt*p2p4+
     $     2*e24*mt*p2p4-2*e224*mt*p3p4+2*e234*mt*p3p4-
     $     2*e24*mt*p3p4)
      kmv(10)=(8*e22*mt-8*e223*mt+16*e224*mt-8*e234*mt+8*e24*mt)
      kmv(11)=(-8*e223*mt+8*e23*mt-8*e234*mt)
      kmv(13)=(-4*e13*mt-8*e212*mt-8*e214*mt-8*e22*mt-16*e224*mt-
     $     8*e24*mt)
      kmv(14)=(-4*e12*mt+8*e13*mt-4*e14*mt+8*e213*mt+8*e223*mt+
     $     8*e234*mt)
      kmv(16)=(10*d0+4*d11+4*d13+2*d21+4*d213+2*d23+4*e12*mt**2+
     $     4*e14*mt**2+4*e212*mt**2-4*e213*mt**2+4*e214*mt**2-
     $     12*e22*mt**2+4*e223*mt**2-24*e224*mt**2-4*e23*mt**2+
     $     4*e234*mt**2-12*e24*mt**2-4*e13*p1p2+4*e212*p1p2-
     $     4*e213*p1p2+4*e214*p1p2+16*e223*p1p2-4*e23*p1p2+
     $     16*e234*p1p2-4*e214*p1p3-16*e223*p1p3-
     $     20*e234*p1p3-4*e11*p1p4-12*e13*p1p4+4*e21*p1p4-
     $     4*e212*p1p4+12*e213*p1p4-4*e214*p1p4-
     $     12*e223*p1p4+8*e23*p1p4-12*e234*p1p4-4*e14*p2p3-
     $     4*e214*p2p3+12*e224*p2p3-4*e234*p2p3+12*e24*p2p3+
     $     8*e0*p2p4+12*e11*p2p4+16*e12*p2p4+12*e13*p2p4+
     $     16*e14*p2p4+4*e21*p2p4-8*e212*p2p4+8*e213*p2p4-
     $     8*e214*p2p4+8*e22*p2p4-8*e223*p2p4+16*e224*p2p4+
     $     4*e23*p2p4-8*e234*p2p4+8*e24*p2p4-8*e14*p3p4+
     $     8*e212*p3p4+12*e214*p3p4+8*e223*p3p4-8*e224*p3p4+
     $     12*e234*p3p4-8*e24*p3p4)
      kmv(17)=(-10*d12-2*d212-2*d223+4*e213*p1p4+12*e23*p1p4+
     $     16*e223*p2p3+16*e234*p2p3-8*e13*p2p4-8*e213*p2p4-
     $     8*e223*p2p4-8*e23*p2p4-8*e234*p2p4+8*e13*p3p4+
     $     8*e213*p3p4+8*e23*p3p4+8*e234*p3p4)
      kmv(19)=(-4*d11-4*d13-8*e22*mt**2-16*e224*mt**2-8*e24*mt**2+
     $     8*e223*p1p2+8*e234*p1p2+8*e212*p1p3+8*e214*p1p3-
     $     8*e223*p1p3-8*e234*p1p3-8*e212*p2p3-8*e214*p2p3-
     $     8*e223*p2p3+8*e224*p2p3-8*e234*p2p3+8*e24*p2p3-
     $     8*e212*p2p4-8*e214*p2p4-8*e223*p2p4-8*e234*p2p4+
     $     8*e212*p3p4+8*e214*p3p4+8*e223*p3p4+8*e234*p3p4)
      kmv(20)=(-2*d0+2*d11-2*d12+2*d13-8*e12*mt**2-8*e14*mt**2-
     $     4*e212*mt**2-4*e214*mt**2-8*e223*mt**2-8*e234*mt**2+
     $     8*e13*p1p2+4*e213*p1p2+8*e23*p1p2-8*e13*p1p3-
     $     8*e213*p1p3-8*e23*p1p3+8*e13*p2p3+8*e14*p2p3+
     $     8*e213*p2p3+4*e214*p2p3+16*e223*p2p3+8*e23*p2p3+
     $     24*e234*p2p3-8*e11*p2p4-8*e13*p2p4-4*e21*p2p4-
     $     12*e213*p2p4-8*e23*p2p4+8*e13*p3p4+8*e213*p3p4+
     $     8*e23*p3p4)
      kmv(22)=(2*d11+2*d13+2*d213+2*d23+4*e22*mt**2+4*e224*mt**2+
     $     4*e234*mt**2-4*e223*p1p2-4*e224*p1p2-4*e24*p1p2+
     $     4*e24*p1p3+4*e14*p1p4-4*e214*p1p4+8*e223*p1p4+
     $     4*e224*p1p4+4*e24*p1p4-4*e224*p2p3+8*e12*p2p4+
     $     4*e212*p2p4+8*e22*p2p4+4*e223*p2p4+12*e224*p2p4+
     $     4*e24*p2p4-4*e24*p3p4)
      kmv(23)=(-2*d12-2*d223-4*e23*mt**2+4*e223*p1p2+
     $     4*e234*p1p2-4*e234*p1p3-4*e13*p1p4+4*e213*p1p4-
     $     4*e234*p1p4-12*e223*p2p4-4*e234*p2p4+4*e234*p3p4)
      kmv(25)=(-2*d0-2*d11-2*d13-4*e13*mt**2-4*e223*mt**2-
     $     4*e234*mt**2-4*e12*p1p2-4*e14*p1p2-4*e22*p1p2-
     $     8*e223*p1p2-8*e224*p1p2-8*e234*p1p2-4*e24*p1p2-
     $     4*e14*p1p3-4*e224*p1p3-4*e24*p1p3-4*e0*p1p4+
     $     4*e11*p1p4-4*e12*p1p4-4*e14*p1p4-4*e212*p1p4-
     $     4*e214*p1p4+8*e223*p1p4+8*e234*p1p4+4*e12*p2p4+
     $     4*e14*p2p4+8*e212*p2p4+8*e214*p2p4+4*e22*p2p4+
     $     8*e223*p2p4+8*e224*p2p4+8*e234*p2p4+4*e24*p2p4+
     $     4*e14*p3p4+4*e224*p3p4+4*e24*p3p4)
      kmv(26)=(2*d0+2*d12+2*d13+4*e12*mt**2+4*e14*mt**2+4*e223*mt**2+
     $     4*e224*mt**2+4*e234*mt**2+4*e24*mt**2+4*e13*p1p2+
     $     8*e223*p1p2+4*e23*p1p2+4*e234*p1p2+8*e213*p1p4-
     $     4*e14*p2p3-4*e234*p2p3-4*e24*p2p3+8*e0*p2p4+
     $     4*e11*p2p4+8*e12*p2p4+4*e13*p2p4+8*e14*p2p4-
     $     4*e213*p2p4+4*e214*p2p4-8*e223*p2p4-4*e23*p2p4-
     $     4*e234*p2p4)
      kmv(28)=(2*d21*mt-2*d212*mt+4*d213*mt-2*d223*mt+2*d23*mt-
     $     4*e22*mt**3+8*e223*mt**3-8*e224*mt**3-4*e23*mt**3+
     $     8*e234*mt**3-
     $     4*e24*mt**3-4*e22*mt*p1p2+8*e223*mt*p1p2-
     $     8*e224*mt*p1p2-4*e23*mt*p1p2+8*e234*mt*p1p2-
     $     4*e24*mt*p1p2+4*e224*mt*p1p3-4*e234*mt*p1p3+
     $     4*e24*mt*p1p3+4*e12*mt*p1p4-4*e13*mt*p1p4+
     $     4*e14*mt*p1p4-4*e212*mt*p1p4+4*e213*mt*p1p4-
     $     4*e214*mt*p1p4+4*e22*mt*p1p4-12*e223*mt*p1p4+
     $     8*e224*mt*p1p4+8*e23*mt*p1p4-12*e234*mt*p1p4+
     $     4*e24*mt*p1p4+4*e224*mt*p2p3-4*e234*mt*p2p3+
     $     4*e24*mt*p2p3-8*e12*mt*p2p4+8*e13*mt*p2p4-
     $     8*e14*mt*p2p4-4*e212*mt*p2p4+4*e213*mt*p2p4-
     $     4*e214*mt*p2p4-4*e22*mt*p2p4-8*e224*mt*p2p4+
     $     4*e23*mt*p2p4-4*e24*mt*p2p4-8*e22*mt*p3p4+
     $     8*e223*mt*p3p4-20*e224*mt*p3p4+12*e234*mt*p3p4-
     $     12*e24*mt*p3p4)
      kmv(29)=(-2*d212*mt+2*d22*mt-2*d223*mt-4*e223*mt*p1p4+
     $     4*e23*mt*p1p4-4*e234*mt*p1p4+8*e223*mt*p2p4-
     $     8*e23*mt*p2p4+8*e234*mt*p2p4+8*e223*mt*p3p4-
     $     8*e23*mt*p3p4+8*e234*mt*p3p4)
      kmv(31)=(4*d11*mt+4*d13*mt+8*e22*mt**3+16*e224*mt**3+8*e24*mt**3-
     $     8*e223*mt*p1p2-8*e234*mt*p1p2+8*e22*mt*p1p3+
     $     16*e224*mt*p1p3+8*e24*mt*p1p3+8*e223*mt*p2p3-
     $     8*e224*mt*p2p3+8*e234*mt*p2p3-8*e24*mt*p2p3+
     $     8*e212*mt*p2p4+8*e214*mt*p2p4+8*e223*mt*p2p4+
     $     8*e234*mt*p2p4+8*e13*mt*p3p4+8*e212*mt*p3p4+
     $     8*e214*mt*p3p4+8*e22*mt*p3p4+16*e224*mt*p3p4+
     $     8*e24*mt*p3p4)
      kmv(32)=(-2*d11*mt-2*d12*mt-2*d13*mt-4*e22*mt**3-4*e223*mt**3-
     $     8*e224*mt**3-4*e234*mt**3-4*e24*mt**3+4*e223*mt*p1p2+
     $     4*e23*mt*p1p2+4*e234*mt*p1p2-8*e223*mt*p1p3-
     $     8*e234*mt*p1p3+4*e224*mt*p2p3-8*e23*mt*p2p3+
     $     4*e234*mt*p2p3+4*e24*mt*p2p3-4*e212*mt*p2p4-
     $     4*e213*mt*p2p4-4*e214*mt*p2p4-4*e223*mt*p2p4-
     $     4*e23*mt*p2p4-4*e234*mt*p2p4-8*e13*mt*p3p4-
     $     8*e213*mt*p3p4-8*e223*mt*p3p4-8*e234*mt*p3p4)
      kmv(37)=(8*e14+8*e212+8*e214+8*e223+8*e224+8*e234+8*e24)
      kmv(38)=(-8*e212-8*e214+8*e223)
      kmv(40)=(-8*e13-8*e14-8*e213-16*e223-8*e224-8*e23-16*e234-
     $     8*e24)
      kmv(41)=(8*e13+8*e213+8*e23+8*e234)
      kmv(46)=(-8*e13*mt-16*e212*mt-16*e214*mt-24*e223*mt-24*e234*mt)
      kmv(47)=8*e23*mt
      kmv(49)=(-8*e12*mt+16*e13*mt-8*e14*mt+16*e213*mt-8*e22*mt+
     $     16*e223*mt-16*e224*mt+16*e23*mt+16*e234*mt-8*e24*mt)
      kmv(50)=(8*e223*mt-16*e23*mt+8*e234*mt)
      kmv(55)=(-8*e223*mt+16*e224*mt-8*e234*mt+16*e24*mt)
      kmv(56)=(-8*e22*mt-16*e224*mt-8*e24*mt)
      kmv(58)=(8*e23*mt-16*e234*mt)
      kmv(59)=(8*e223*mt+8*e234*mt)
      kmv(64)=(-4*d0+8*d11+8*d13+4*d21+8*d213+4*d23-8*e13*mt**2-
     $     16*e223*mt**2-16*e234*mt**2-8*e12*p1p2-8*e14*p1p2-
     $     16*e22*p1p2-16*e223*p1p2-32*e224*p1p2-
     $     16*e234*p1p2-16*e24*p1p2-8*e14*p1p3-8*e0*p1p4+
     $     8*e11*p1p4-16*e12*p1p4-16*e14*p1p4-8*e22*p1p4-
     $     16*e223*p1p4-16*e224*p1p4-16*e234*p1p4-
     $     8*e24*p1p4-16*e224*p2p3-16*e24*p2p3+8*e12*p2p4+
     $     8*e14*p2p4+16*e212*p2p4+16*e214*p2p4+16*e22*p2p4+
     $     16*e223*p2p4+32*e224*p2p4+16*e234*p2p4+
     $     16*e24*p2p4-8*e14*p3p4-16*e212*p3p4-16*e214*p3p4-
     $     16*e223*p3p4-16*e224*p3p4-16*e234*p3p4-16*e24*p3p4)
      kmv(65)=(8*d11+4*d12+8*d13-4*d212-4*d223+16*e22*mt**2+
     $     32*e224*mt**2+8*e23*mt**2+16*e24*mt**2-8*e223*p1p2-
     $     8*e234*p1p2+8*e234*p1p3+8*e13*p1p4-8*e213*p1p4+
     $     8*e223*p1p4+8*e234*p1p4-16*e224*p2p3-16*e24*p2p3+
     $     16*e212*p2p4+16*e214*p2p4+8*e223*p2p4+
     $     8*e234*p2p4-16*e223*p3p4-8*e234*p3p4)
      kmv(67)=(4*d0+4*d11-12*d12+4*d13-8*d212-8*d223+8*e12*mt**2+
     $     8*e14*mt**2+8*e22*mt**2+8*e223*mt**2+16*e224*mt**2+
     $     8*e234*mt**2+8*e24*mt**2+8*e13*p1p2+24*e223*p1p2+
     $     8*e23*p1p2+24*e234*p1p2-16*e234*p1p3+
     $     16*e213*p1p4+32*e23*p1p4-8*e14*p2p3-8*e224*p2p3+
     $     8*e234*p2p3-8*e24*p2p3+16*e0*p2p4+8*e11*p2p4+
     $     32*e12*p2p4+8*e13*p2p4+32*e14*p2p4+8*e212*p2p4-
     $     8*e213*p2p4+8*e214*p2p4+16*e22*p2p4-8*e223*p2p4+
     $     32*e224*p2p4-8*e23*p2p4-8*e234*p2p4+16*e24*p2p4+
     $     16*e13*p3p4+16*e213*p3p4+16*e223*p3p4+
     $     16*e23*p3p4+32*e234*p3p4)
      kmv(68)=(-8*d12+8*d22-16*e223*mt**2-16*e234*mt**2+
     $     16*e234*p2p3-16*e13*p2p4-16*e213*p2p4-
     $     16*e223*p2p4-16*e23*p2p4-16*e234*p2p4)

      kmv(16)=kmv(16)+
     $     (-4*e3123*mt**2-4*e3134*mt**2-4*e332*mt**2-4*e334*mt**2+
     $     8*e3124*p1p2+4*e321*p1p2+4*e323*p1p2+
     $     8*e3234*p1p2+4*e341*p1p2+4*e343*p1p2-
     $     4*e3124*p1p3-4*e3234*p1p3-4*e341*p1p3-
     $     4*e343*p1p3+4*e312*p1p4+12*e3123*p1p4+
     $     12*e3134*p1p4+4*e314*p1p4+8*e332*p1p4+
     $     8*e334*p1p4-8*e3124*p2p4-4*e321*p2p4-4*e323*p2p4-
     $     8*e3234*p2p4-4*e341*p2p4-4*e343*p2p4+
     $     4*e3124*p3p4+4*e3234*p3p4+4*e341*p3p4+4*e343*p3p4)
      kmv(17)=kmv(17)+
     $     (4*e33*mt**2+4*e331*mt**2-4*e3123*p1p2-
     $     4*e3134*p1p2-4*e332*p1p2-4*e334*p1p2+
     $     4*e3134*p1p3+4*e334*p1p3-4*e313*p1p4-8*e33*p1p4-
     $     12*e331*p1p4+4*e3123*p2p4+4*e3134*p2p4+
     $     4*e332*p2p4+4*e334*p2p4-4*e3134*p3p4-4*e334*p3p4)
      kmv(22)=kmv(22)+
     $     (4*e3234*mt**2+4*e343*mt**2-4*e324*p1p2-4*e34*p1p2-
     $     8*e342*p1p2+4*e34*p1p3+4*e342*p1p3-4*e3124*p1p4-
     $     8*e3234*p1p4-4*e341*p1p4-8*e343*p1p4+4*e324*p2p4+
     $     4*e34*p2p4+8*e342*p2p4-4*e34*p3p4-4*e342*p3p4)
      kmv(23)=kmv(23)+
     $     (-4*e334*mt**2+4*e3234*p1p2+4*e343*p1p2-
     $     4*e343*p1p3+4*e3134*p1p4+8*e334*p1p4-
     $     4*e3234*p2p4-4*e343*p2p4+4*e343*p3p4)
      kmv(28)=kmv(28)+
     $     (4*e323*mt**3+8*e3234*mt**3-4*e332*mt**3-4*e334*mt**3+
     $     4*e343*mt**3-4*e32*mt*p1p2+4*e323*mt*p1p2+
     $     8*e3234*mt*p1p2-12*e324*mt*p1p2-4*e34*mt*p1p2-
     $     12*e342*mt*p1p2+4*e343*mt*p1p2-4*e3234*mt*p1p3+
     $     4*e324*mt*p1p3+4*e34*mt*p1p3+8*e342*mt*p1p3-
     $     4*e343*mt*p1p3+4*e3123*mt*p1p4-8*e3124*mt*p1p4+
     $     4*e3134*mt*p1p4-4*e321*mt*p1p4-8*e323*mt*p1p4-
     $     16*e3234*mt*p1p4+8*e332*mt*p1p4+8*e334*mt*p1p4-
     $     4*e341*mt*p1p4-8*e343*mt*p1p4+4*e32*mt*p2p4-
     $     4*e323*mt*p2p4-8*e3234*mt*p2p4+12*e324*mt*p2p4+
     $     4*e34*mt*p2p4+12*e342*mt*p2p4-4*e343*mt*p2p4+
     $     4*e3234*mt*p3p4-4*e324*mt*p3p4-4*e34*mt*p3p4-
     $     8*e342*mt*p3p4+4*e343*mt*p3p4)
      kmv(29)=kmv(29)+
     $     (4*e33*mt**3-4*e332*mt**3-4*e334*mt**3+4*e323*mt*p1p2+
     $     8*e3234*mt*p1p2-4*e332*mt*p1p2-4*e334*mt*p1p2+
     $     4*e343*mt*p1p2-4*e3234*mt*p1p3+4*e334*mt*p1p3-
     $     4*e343*mt*p1p3+4*e3123*mt*p1p4+4*e3134*mt*p1p4-
     $     8*e33*mt*p1p4-4*e331*mt*p1p4+8*e332*mt*p1p4+
     $     8*e334*mt*p1p4-4*e323*mt*p2p4-8*e3234*mt*p2p4+
     $     4*e332*mt*p2p4+4*e334*mt*p2p4-4*e343*mt*p2p4+
     $     4*e3234*mt*p3p4-4*e334*mt*p3p4+4*e343*mt*p3p4)
      kmv(46)=kmv(46)+(-32*e3124*mt-16*e321*mt-16*e323*mt-32*e3234*mt-
     $     16*e341*mt-16*e343*mt)
      kmv(47)=kmv(47)+(16*e3123*mt+16*e3134*mt+16*e332*mt+16*e334*mt)
      kmv(49)=kmv(49)+(16*e3123*mt+16*e3134*mt+16*e332*mt+16*e334*mt)
      kmv(50)=kmv(50)+(-16*e33*mt-16*e331*mt)
      kmv(55)=kmv(55)+(16*e324*mt+16*e34*mt+32*e342*mt)
      kmv(56)=kmv(56)+(-16*e3234*mt-16*e343*mt)
      kmv(58)=kmv(58)+(-16*e3234*mt-16*e343*mt)
      kmv(59)=kmv(59)+16*e334*mt
      kmv(64)=kmv(64)+
     $     (-16*e32*mt**2-8*e323*mt**2-16*e3234*mt**2-48*e324*mt**2-
     $     16*e34*mt**2-48*e342*mt**2-8*e343*mt**2-8*e32*p1p2-
     $     24*e324*p1p2-8*e34*p1p2-24*e342*p1p2+8*e324*p1p3+
     $     8*e34*p1p3+16*e342*p1p3-16*e3124*p1p4-
     $     8*e321*p1p4-16*e323*p1p4-32*e3234*p1p4-
     $     8*e341*p1p4-16*e343*p1p4+8*e32*p2p4+24*e324*p2p4+
     $     8*e34*p2p4+24*e342*p2p4-8*e324*p3p4-8*e34*p3p4-
     $     16*e342*p3p4)
      kmv(65)=kmv(65)+
     $     (16*e323*mt**2+32*e3234*mt**2+8*e332*mt**2+8*e334*mt**2+
     $     16*e343*mt**2+8*e323*p1p2+16*e3234*p1p2+8*e343*p1p2-
     $     8*e3234*p1p3-8*e343*p1p3+8*e3123*p1p4+
     $     8*e3134*p1p4+16*e332*p1p4+16*e334*p1p4-
     $     8*e323*p2p4-16*e3234*p2p4-8*e343*p2p4+
     $     8*e3234*p3p4+8*e343*p3p4)
      kmv(67)=kmv(67)+
     $     (16*e323*mt**2+32*e3234*mt**2+16*e343*mt**2+
     $     16*e323*p1p2+32*e3234*p1p2+16*e343*p1p2-
     $     16*e3234*p1p3-16*e343*p1p3+16*e3123*p1p4+
     $     16*e3134*p1p4+32*e332*p1p4+32*e334*p1p4-
     $     16*e323*p2p4-32*e3234*p2p4-16*e343*p2p4+
     $     16*e3234*p3p4+16*e343*p3p4)
      kmv(68)=kmv(68)+
     $     (-16*e332*mt**2-16*e334*mt**2-16*e332*p1p2-
     $     16*e334*p1p2+16*e334*p1p3-32*e33*p1p4-
     $     16*e331*p1p4+16*e332*p2p4+16*e334*p2p4-16*e334*p3p4)
      do i=1,68
         kmv(i)=cg/2d0*kmv(i)
      enddo
      return
      end
